الرجاء ممن يستطيع مساعدتي في اتمام البرمجة للفورم وارفقت الملف
لمن يستطيع مساعدتي
الشكر للجميع
التأكد من الكود
اذا بفتحو للبرنامج وبسكر النافذة وبرجع بفتحها مرة تانية مابترضى تفتح
Private Sub Newsupplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
CON.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, CON)
DataAdapter1.Fill(DS, "suppliers")
CON.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Me.t_custname.DataBindings.Add("Text", Me.DS, "suppliers.company")
ChangePosition()
Me.DataGridView1.DataSource = DS
Me.DataGridView1.DataMember = "suppliers"
End Subئ