- 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=123279)
-- 发布时间：2018/8/11 9:25:00
-- [求助]修改行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:修改行.table |
老师，
点击修改行，怎么能使打开的窗口定位到主窗口同样 的行，例如
主窗口点击行 3，点击修改按钮，打开的窗口定位的是行1，希望修改窗口打开后，也定位到行3。
-- 发布时间：2018/8/11 9:38:00
--
“修改”窗口中“Table1”控件CurrentChanged事件设置以下代码。
If e.Table.Current Is Nothing Then \'如果Current为Nothing
Return \'则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = Tables("窗口1_Table1").DataTable.Find("[menuid] = \'" & e.Table.Current("menuid") & "\'")
If dr IsNot Nothing Then
wz = Tables("窗口1_Table1").FindRow(dr)
If wz >= 0 Then
Tables("窗口1_Table1").Position = wz
End If
End If
-- 发布时间：2018/8/11 9:43:00
--
只是帮助文档的部分，以知悉；
我的意思是，修改 窗口 能和Tables("窗口1_Table1") 行一致 ，怎么设计，变量？
-- 发布时间：2018/8/11 10:01:00
--
用法和2楼完全一样，把代码改改放到Tables("窗口1_Table1") ，CurrentChanged事件
反过来就可以了