[ممدوح]

قمت بتعديل الدالة Load_Volations_Details أرجو أن يتضح الأمر فيها

كود :

Friend Function Load_Volations_Details(ByVal VolationCode As Integer, ByVal ActionNumber As Integer) As DataTable
    Dim daa As New SqlDataAdapter("Load_Volations_Details", cnn)
    daa.SelectCommand.CommandType = CommandType.StoredProcedure
    daa.SelectCommand.Parameters.AddWithValue("@VolationCode", VolationCode)
    daa.SelectCommand.Parameters.AddWithValue("@ActionNumber", ActionNumber)
    Dim tbl As New DataTable
    If daa.Fill(tbl) > 0 Then
        Dim r As DataRow = tbl.Rows(0)
        MsgBox(r.Item("volationfees"))
        MsgBox(r.Item("volationactionname"))
    End If
    Return tbl
End Function