Dim idx1 As Integer = Tables("表a").FindRow("工程名称 = '" & e.form.Controls("Combobox1").Text & "'")
Dim idx2 As Integer = Tables("表b").FindRow("工程名称 = '" & e.form.Controls("Combobox1").Text & "'")
If idx1 >= 0 Then Tables("表A").Position = idx1End If
If idx2 >= 0 Then Tables("表B").Position = idx2End If