主题：查找赋值给窗口的文本框

参考代码

Dim drs As List(Of DataRow) = DataTables("表A").Select("姓名 = '" & e.form.controls("TextBox1").Text & "'")
If drs.count > 0 Then
    e.form.controls("TextBox60").Text = drs(0)("姓名")
    e.form.controls("TextBox61").Text = drs(0)("性别")
Else
    e.form.controls("TextBox60").Text = Nothing
    e.form.controls("TextBox61").Text = Nothing
End If