11-04-20, 10:55 PM
(آخر تعديل لهذه المشاركة : 11-04-20, 11:25 PM {2} بواسطة atefkhalf2004.)
السادة
اريد عمل اجراء في موديول
كلما تم استدعاؤه في اي فورم بمعلومية كمبوبوكس2 قيمة
Public Sub showtheraseed( ByVal ComboBox2.SelectedValue as integer)
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim command As New SqlCommand
command = New SqlCommand
command.Connection = conn
Dim purin, purback, salin, salback As Double
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
command.Connection = conn
command.CommandType = CommandType.Text
command.CommandText = "SELECT sum(invqu) as sumofpur FROM adpurdet WHERE itcod = " & ComboBox2.SelectedValue & " "
Dim dr1 As SqlDataReader
If dr1 IsNot Nothing Then dr1.Close()
dr1 = command.ExecuteReader
Dim dt1 As New DataTable
dt1.Load(dr1)
If dt1.Rows.Count = 0 Then
purin = 0
Else
If IsDBNull(dt1.Rows(0).Item("sumofpur")) Then
purin = 0
Else
purin = (dt1.Rows(0).Item("sumofpur"))
End If
End If
end sub
؟؟؟
السادة الزملاء
مش عارف اعمل الكمبو كمتغير ؟؟؟
من فضلكم
برجاء الرد
اريد عمل اجراء في موديول
كلما تم استدعاؤه في اي فورم بمعلومية كمبوبوكس2 قيمة
Public Sub showtheraseed( ByVal ComboBox2.SelectedValue as integer)
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim command As New SqlCommand
command = New SqlCommand
command.Connection = conn
Dim purin, purback, salin, salback As Double
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
command.Connection = conn
command.CommandType = CommandType.Text
command.CommandText = "SELECT sum(invqu) as sumofpur FROM adpurdet WHERE itcod = " & ComboBox2.SelectedValue & " "
Dim dr1 As SqlDataReader
If dr1 IsNot Nothing Then dr1.Close()
dr1 = command.ExecuteReader
Dim dt1 As New DataTable
dt1.Load(dr1)
If dt1.Rows.Count = 0 Then
purin = 0
Else
If IsDBNull(dt1.Rows(0).Item("sumofpur")) Then
purin = 0
Else
purin = (dt1.Rows(0).Item("sumofpur"))
End If
End If
end sub
؟؟؟
السادة الزملاء
مش عارف اعمل الكمبو كمتغير ؟؟؟
من فضلكم
برجاء الرد