الأخوة الأكارم
أنا عندي هذه الدالة التي تقوم بملئ الكومبو بوكس وتعين
displaymember
valuemember
Sub fill2()
cn.Open()
Dim cmd As New OleDbCommand
cmd.CommandType = CommandType.Text
cmd.CommandText = "select id, nameofExpense from tblexpensive "
cmd.Connection = cn
Dim da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable()
da.Fill(dt)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "nameofExpense"
ComboBox1.ValueMember = "id"
End Sub
//////////////////////////////////// وعندي الأمر التالي الذي يقوم بملئ الجدول ولكن المشكلة أنه يقوم بملئ اسم المصروف وليس رقمه هل هناك مشكلة في هذا الأمر
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmd.Connection = cn
cmd.CommandType = CommandType.Text
cmd.CommandText = "insert into tblexpensive (nameofExpense) values ('" & Me.ComboBox1.Text & "')"
cmd.ExecuteNonQuery()
End Sub