تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تصحيح الخطاء في السطر الذي لونه احمر تحته خط
#1
'======= للاختيار من الدتا قريد فيو لتعبئة التكس بوككس
    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
الرد
تم الشكر بواسطة:
#2
Data Bindings صفة ليست موجودة في المصفوفة Fields ولا موجودة في المتغير txt اللذان هما عبارة عن متغيرات يتم تمريرهم للروتين
لكنها صفة موجودة في الكونترول
لذلك في السطر المكتوب باللون الأحمر حاول تغير الكلمة txt الي ctrl او اكتب اسم الكونترول الذي تمرر له البيانات بشكل صحيح
لأنك ربما هنا تستخدم dgv او datagridview
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم