منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

'======= للاختيار من الدتا قريد فيو لتعبئة التكس بوككس
    Sub BindData(ByVal frm As Form, ByVal fields() As String, ByVal txt() As String)

        For Each ctrl As Control In frm.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.DataBindings.Clear()
            End If
        Next

        For Each ctrl As Control In frm.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = ""
            End If
        Next

        For i As Integer = 0 To fields.Count - 1
            txt(0).DataBindings.Add("text", dv, fields(i))
        Next
    End Sub

Data Bindings صفة ليست موجودة في المصفوفة Fields ولا موجودة في المتغير txt اللذان هما عبارة عن متغيرات يتم تمريرهم للروتين
لكنها صفة موجودة في الكونترول
لذلك في السطر المكتوب باللون الأحمر حاول تغير الكلمة txt الي ctrl او اكتب اسم الكونترول الذي تمرر له البيانات بشكل صحيح
لأنك ربما هنا تستخدم dgv او datagridview