以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  通过窗口对二个表的数据进行编辑  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=85393)
--  作者：大红袍
--  发布时间：2016/5/24 21:57:00
--  

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 = idx1
End If

If idx2 >= 0 Then
    Tables("表B").Position = idx2
End If

[此贴子已经被作者于2016/5/25 14:08:27编辑过]
--  作者：Hyphen
--  发布时间：2016/5/25 8:20:00
--  
查询按钮事件
--  作者：大红袍
--  发布时间：2016/5/25 14:08:00
--  

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 = idx1
End If

If idx2 >= 0 Then
    Tables("表B").Position = idx2
End If