主题：[原创]关于查找代码

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

此主题相关图片如下：067f258307f47e6334b91ec312fc9db.png