فورم إدخال البضاعة

[djamel2020 0]

Private Sub txtSerch_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSerch.TextChanged
If cnn.State = ConnectionState.Open Then
cnn.Close()
End If
'On Error Resume Next
Dim Ask As String
cnn.Open()
AchatsBS.Filter = "N + Société + Dates + Montant like '%" + txtSerch.Text + "%'"
If DataGridView1.RowCount = 0 Then
Ask = MsgBox("Ce Fournisseur N'existe Pas, Voulez vous ajouter un?", MsgBoxStyle.YesNo)
If Ask = MsgBoxResult.Yes Then
txtSerch.Text = ""
frmsaisiedesfour.Show()
End If
End If
cnn.Close()
End Sub

 

لكود يشتغل لكن ليس عن طريق رقم الفاتورة إذ لو كتبت رقم الفاتورة في الـ txtSerch لا يعمل أما الباقي Société + Dates + Montant فيشتغل جيدا أود أن اعرف لماذا ممكن ؟

[djamel2020 0]

طيب بدل الفلترة كيف أجعل كلما كتبت رقم الفاتورة في txtserch يتحدد السطر الموجدة فيه هذه الفاتورة

شكرا

[djamel2020 0]

مرحبا

خلاص حليتها ولمن يريد الكود هو :

 Private Sub txtSerch_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSerch.KeyPress
        If e.KeyChar = Chr(13) Then
            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                If txtSerch.Text = DataGridView1.Rows(i).Cells(0).Value Then
                    DataGridView1.Rows(i).Selected = False
                    'DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect
                    DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.DodgerBlue
                Else
                    DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.White
                End If
            Next
        End If
    End Sub

[djamel2020 0]

مرحبا

خلاص حليتها ولمن يريد الكود هو :

 Private Sub txtSerch_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSerch.KeyPress
        If e.KeyChar = Chr(13) Then
            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                If txtSerch.Text = DataGridView1.Rows(i).Cells(0).Value Then
                    DataGridView1.Rows(i).Selected = False
                    'DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect
                    DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.DodgerBlue
                Else
                    DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.White
                End If
            Next
        End If
    End Sub