إقتباس :ضع الكود كامل
كود :
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
'On Error Resume Next
DataAdapter2 = New OleDbDataAdapter("Select * From JBea2 Where JBeaNumf like " & TJBeaNumF.Text & "", conne)
DataSet2.Clear()
DataAdapter2.Fill(DataSet2, "JBea2")
DataGridView1.DataSource = DataSet2
DataGridView1.DataMember = "JBea2"
DataGridView1.Refresh()
DataGridView1.RefreshEdit()
DG1()
' On Error Resume Next
TJBeaNumS.DataBindings.Add("Text", DataSet2, "JBea2.JBeaNumS")
TJBeaNameS.DataBindings.Add("Text", DataSet2, "JBea2.JBeaNameS")
TJBeaAdd.DataBindings.Add("Text", DataSet2, "JBea2.JBeaAdd")
CJBeaWhda.DataBindings.Add("Text", DataSet2, "JBea2.JBeaWhda")
TJBeaSar.DataBindings.Add("Text", DataSet2, "JBea2.JBeaSar")
TJBeaEjmaly.DataBindings.Add("Text", DataSet2, "JBea2.JBeaEjmaly")
TextBox2.DataBindings.Add("Text", DataSet2, "JBea2.JBeanumf")
On Error Resume Next'
DataAdapter1 = New OleDbDataAdapter("Select * From JBea Where JBeaNumf like " & TJBeaNumF.Text & "", conne)
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "jbea")
TJBeaNumF.DataBindings.Add("Text", DataSet1, "JBea.JBeanumf")
CJBeaNameAmeel.DataBindings.Add("Text", DataSet1, "JBea.JBeaNameAmeel")
DJBeaDate.DataBindings.Add("Text", DataSet1, "JBea.JBeaDate")
CJBeaDfa.DataBindings.Add("Text", DataSet1, "JBea.JBeaDfa")
TJBeaNote.DataBindings.Add("Text", DataSet1, "JBea.JBeaNote")
TJBeaEjmalyF.DataBindings.Add("Text", DataSet1, "JBea.JBeaEjmalyf")
adds()
End Sub
هذا حدث التحديث
كود :
Private Sub DG1()
DataGridView1.Columns(0).HeaderText = " بارا كود"
DataGridView1.Columns(1).HeaderText = "أسم الصنف"
DataGridView1.Columns(2).HeaderText = "الكمية"
DataGridView1.Columns(3).HeaderText = " الوحدة"
DataGridView1.Columns(4).HeaderText = "السعر "
DataGridView1.Columns(5).HeaderText = " الاجمالي"
'-------
'==========
DataGridView1.Columns(6).Visible = False
'-----
DataGridView1.Columns(0).Width = 100
DataGridView1.Columns(1).Width = 250
DataGridView1.Columns(2).Width = 100
DataGridView1.Columns(3).Width = 100
DataGridView1.Columns(4).Width = 100
DataGridView1.Columns(5).Width = 100
'''''========
' تلوين الداتا جريد
DataGridView1.ColumnHeadersDefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleCenter
DataGridView1.MultiSelect = False
With Me.DataGridView1
.RowsDefaultCellStyle.BackColor = Color.Bisque
.AlternatingRowsDefaultCellStyle.BackColor = Color.Beige
End With
End Sub
Private Sub adds()
Dim cmd2 As New OleDbCommand
cmd2.CommandType = CommandType.Text
cmd2.Connection = conne
cmd2.CommandText = " select count (jbeanumf) from [JBea] "
' cmd2.CommandText = "select count(jbeanumf) from [JBea] " ' كود إيجاد عدد السجلات
conne.Open()
Dim a As Integer = cmd2.ExecuteScalar
conne.Close()
TextBox1.Text = a
End Sub
هذا الحدث dg1 الذي يتم استدعائه والحدث adds
مع العلم ان هذا الكود موضوع في حديث تحميل الفورم
ويشتغل تماما ويظهر المواد ن القاعدة
وعند استعماله مرة اخرى بزر امر لاغراض اخرى تظهر المشكلة