17-09-16, 07:33 PM
'======= للاختيار من الدتا قريد فيو لتعبئة التكس بوككس
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
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