[essawq]

السلام عليكم ورحمة الله وبركاتة

اعمل على برنامج شخصي من اجل تعلم البرمجة

عندي فورم بحث من اجل التعديل

يحتوي على تكست بكس عدد 4

كومبو بكس عدد 1  يعرض ايام الاسبوع

داتا تايم 1

زر بحث باسم الشركة

تكست لوضع اسم الشركة

زر بحث بالتاريخ

داتا تايم للبحث بالتاريخ

زر تعديل

المشكلة بالبحث سواء باسم الشركة او بالتاريخ تتم عملية البحث 

مرة يتم تصفية النتائج بالداتا جريد ومرة ثانية لا سواء كان البحث بالتاريخ او باسم الشركة

هذا الكود المستخدم للبحث باسم الشركة

كود :

If myconn.conn.State = ConnectionState.Closed Then
           myconn.conn.Open()
       End If
       If TextCompany1.Text.Trim = "" Then
           MsgBox("ادخل قيمة البحث المطلوبة", vbMsgBoxRtlReading + vbCritical, "ادخال البيانات")
           TextCompany1.Focus()
           Exit Sub
       End If
       myconn.dt.Clear()
       myconn.da = New SqlDataAdapter("Select * from woork1 Where Name_Company like '%" & TextCompany1.Text.Trim & "%'", myconn.conn)
       myconn.da.Fill(myconn.dt)
       DgvEdit.DataSource = myconn.dv
       If myconn.dt.Rows.Count() > 0 Then

           Textrecid.Text = myconn.dt.Rows(0)(0).ToString
           TexCompany.Text = myconn.dt.Rows(0)(1).ToString
           ComboBoxDay.Text = myconn.dt.Rows(0)(2).ToString
           DateTimePicker1.Value = myconn.dt.Rows(0)(3).ToString
           TxtInformisen.Text = myconn.dt.Rows(0)(4).ToString
           TxtHouer.Text = myconn.dt.Rows(0)(5).ToString
           TxtHouer.Text = Val(TxtHouer.Text).ToString("0.0")
           TxtNotes.Text = myconn.dt.Rows(0)(6).ToString
           DgvEdit.DataSource = myconn.dv
           myconn.showposition(lbl:=LbEdit)
           summEdit()
           TexCompany.Enabled = True
           ComboBoxDay.Enabled = True
           TxtInformisen.Enabled = True
           TxtHouer.Enabled = True
           TxtNotes.Enabled = True
           BtnEdit.Enabled = True
       Else
           MsgBox("لايوجد بيانات", vbMsgBoxRtlReading + vbCritical, "خطا")
           myconn.load_data()
           DgvEdit.DataSource = myconn.dv
           myconn.cur = CType(Me.BindingContext(myconn.dv), CurrencyManager)
           myconn.showposition(lbl:=LbEdit)
       End If

وهذا الكود بالتاريخ

كود :

myconn.dt.Clear()
       myconn.da = New SqlDataAdapter("Select * from woork1 Where alyowm='" & DTP_pur1.Text & "'", myconn.conn)
       myconn.da.Fill(myconn.dt)
       DgvEdit.DataSource = myconn.dt
       If myconn.dt.Rows.Count > 0 Then
           myconn.ID = DgvEdit.CurrentRow.Cells(0).Value
           Textrecid.Text = myconn.dt.Rows(0)(0).ToString
           TexCompany.Text = myconn.dt.Rows(0)(1).ToString
           ComboBoxDay.SelectedItem = myconn.dt.Rows(0)(2).ToString
           DateTimePicker1.Value = myconn.dt.Rows(0)(3).ToString
           TxtInformisen.Text = myconn.dt.Rows(0)(4).ToString
           TxtHouer.Text = myconn.dt.Rows(0)(5).ToString
           TxtHouer.Text = Val(TxtHouer.Text).ToString("0.0")
           TxtNotes.Text = myconn.dt.Rows(0)(6).ToString
           DgvEdit.DataSource = myconn.dv
           myconn.showposition(lbl:=LbEdit)
           summEdit()
           BtnSersh.Enabled = True
           BtnEdit.Enabled = True
           TexCompany.Enabled = True
           ComboBoxDay.Enabled = True
           TxtInformisen.Enabled = True
           TxtHouer.Enabled = True
           TxtNotes.Enabled = True
       Else
           MsgBox("لايوجد بيانات", vbMsgBoxRtlReading + vbCritical, "خطا")
           myconn.load_data()
           DgvEdit.DataSource = myconn.dv
           myconn.cur = CType(Me.BindingContext(myconn.dv), CurrencyManager)
           myconn.showposition(lbl:=LbEdit)
       End If

وهذة الاكواد تم وضعها في كلاس

كود :

Public dt As New DataTable
   Public da As New SqlDataAdapter
     Public dv As New DataView

فضلا لا امرا اين الخطا

بارك الله فيكم