[atefkhalf2004]

حضرتك  مستواك  عالي جدا

اقسم بالله انا تهت  منك
لكن سوف اعلم  والاخرين

المهم

تم انشاء الدالة

وبال  copy  وال         paste  تم العرض   لكن توهان يا خال

بسط لنا يبسطها  الله في  وجهك


عايزين  اول  ما الفورم  يحمل

بعدها  نختار الصنف من الكمبو   يظهر كارت الصنف

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SELECTCommand = New SqlCommand
        SELECTCommand.Connection = Connction
        SELECTCommand.CommandType = CommandType.Text
        Me.SELECTCommand.CommandText = "SELECT [invsun], [Sale], [Purchase], [Balance] FROM [dbo].[F_TransactionStatement]()  where itcod=  " & ComboBox1.SelectedValue & "     "
        Me.SqlDataAdapter.Fill(Me.ItemTable)
        Me.DataGridView1.DataSource = Me.ItemTable
 
    End Sub 


---

استخد  الدا ست  بدلا من datatable

lمثل

PHP كود :

Sub fillcombox1()
        If conn.State = ConnectionState.Open Then conn.Close()
        conn.Open()
        Dim dscom As New DataSet
        dscom = New DataSet
        Dim dpdp As New SqlDataAdapter


        dpdp = New SqlDataAdapter("SELECT * FROM items order by invsun ", conn)
        dpdp.Fill(dscom, "items")

        conn.Close()
        ComboBox1.Items.Clear()
        ComboBox1.DataSource = dscom.Tables("items")
        ComboBox1.DisplayMember = "invsun"
        ComboBox1.ValueMember = "itcod"
    End Sub