Dim tbx As WinForm.TextBox = e.Form.Controls("czdwmc")
Dim chk As WinForm.RadioButton = e.Form.Controls("mhcz")
Dim str As String = tbx.Value
Dim dr As DataRow = DataTables("记录").Find("单位名称 = "" & str & """)
If dr IsNot Nothing Then
Dim idx As Integer = Tables("记录").FindRow(dr)
If idx >= 0 Then
Tables("记录").Position = idx
End If
End If
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:067f258307f47e6334b91ec312fc9db.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-11/20201120101456172.png)