Листинг 4

Программный код VB.NET формы Form1

Private Sub btnStartwithLookup_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs ) _
Handles btnStartwithLookup.Click
? Описываем proxy и переменную для сохранения массива объектов
Dim xws1 As New cab233a.SSMWSEmpPhones
Dim response As System.Array
? Заполнить объект значениями, возвращенными методом LikeLname
? или выдать сообщение об ошибке.
Try
response = xws1.LikeLname(TextBox1.Text)
Catch ex1 as Exception 
 MsgBox («Error message: « & vbCr & ex1.Message)
Exit Sub
End Try
? Присвоить ответ System.Array набору данных das1
das1 = response(0)
? Связать DataGrid1 с таблицей как das1
Dim strMember As String = das1.Tables(0).TableName
DataGrid1.SetDataBinding(das1, strMember)
End Sub
Private Sub btnEditselectedrow_Click ( _ 
ByVal sender As System.Object, _
ByVal e As System.EventArgs ) _
Handles btnEditselectedrow.Click
Dim int1 As Integer
? Открыть новый экземпляр формы Form2
Dim frm2 As New Form2
frm2.Show
? Скопировать значения из выделенной строки DataGrid формы Form1
? в текстовые поля формы Form2
int1 = DataGrid1.CurrentRowIndex
With das1.Tables(0)
frm2.txtFname.Text = .Rows(int1)(«Fname»)
frm2.txtLname.Text = .Rows(int1)(«Lname»)
frm2.txtPhone.Text = .Rows(int1)(«Phone»)
End With
End Sub