[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

---

؟؟؟
السادة الزملاء
مش عارف اعمل الكمبو كمتغير ؟؟؟

---

من فضلكم
برجاء الرد