[alfaiz678]

إقتباس :ضع الكود كامل

كود :

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

---

مع العلم ان هذا الكود موضوع في حديث تحميل الفورم
ويشتغل تماما ويظهر المواد ن القاعدة
وعند استعماله مرة اخرى بزر امر لاغراض اخرى تظهر المشكلة