[علي كعبي]

'======= للاختيار من الدتا قريد فيو لتعبئة التكس بوككس
    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