[تنبيه - عنوان غير مناسب : ]مشكلة مع الكود

ما الخطا في هذا الكود

On Error Resume Nex

On Error Resume Next
        DataGridView1.DataSource = DataGridView1.DataBindings
        rows2 = ds3.Tables("payment").Select("dep_id '%" & Trim(tx.Text) & )
        Dim FoundRows As DataTable = ds3.Tables("payment").Clone
        For Each dr In rows2
            FoundRows.ImportRow(dr)
            DataGridView1.DataSource = FoundRows
        Next
        ' FillDataToDataGridAndcombo()
    End Sub

anasyihia كتب:

ما الخطا في هذا الكود

On Error Resume Nex

On Error Resume Next
        DataGridView1.DataSource = DataGridView1.DataBindings
        rows2 = ds3.Tables("payment").Select("dep_id '%" & Trim(tx.Text) & )
        Dim FoundRows As DataTable = ds3.Tables("payment").Clone
        For Each dr In rows2
            FoundRows.ImportRow(dr)
            DataGridView1.DataSource = FoundRows
        Next
        ' FillDataToDataGridAndcombo()
    End Sub

يطلعلي خطاء في هذا السطر

rows2 = ds3.Tables("payment").Select("dep_id '%" & Trim(tx.Text) & )