| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 绑定窗口表被选中的下一行。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147149) |
| -- 作者：yangwenghd -- 发布时间：2020/3/10 21:34:00 -- 绑定窗口表被选中的下一行。 老师们，如何实现Label02绑定 窗口1_Table2被选择的行的下一行的第一列呀。感谢 感谢 |
| -- 作者：有点蓝 -- 发布时间：2020/3/10 21:45:00 -- 无法绑定。 |
| -- 作者：yangwenghd -- 发布时间：2020/3/10 22:41:00 -- 可以这样的吗？比如点击按钮，然后执行，然后执行Label02 读取窗口1_Table2被选择的行的下一行的第一列。感谢老师。 |
| -- 作者：有点蓝 -- 发布时间：2020/3/10 23:09:00 -- dim r as row = tables("窗口1_Table2").current if r isnot nothing andalso r.index < tables("窗口1_Table2").rows.count - 1 then e.form.controls("Label02").text = tables("窗口1_Table2").rows(r.index+1)("第一列") end if
|
| -- 作者：yangwenghd -- 发布时间：2020/3/11 0:27:00 -- 老师，如果在窗口表格加入红色代码，然后点击黑色的为什么没有执行呀？能帮忙看看吗？感谢 感谢 Dim r As Row = e.Table.Current If r IsNot Nothing Then Tables("日计划").Position = Tables("日计划").FindRow(r.DataRow) End If \'窗口表与表格同步 Dim r As Row = Tables("日计划").current
If r IsNot Nothing AndAlso r.index < Tables("日计划").rows.count - 1 Then e.form.controls("Label02").text = Tables("日计划").rows(r.index+1)("事件编号") End If |
| -- 作者：有点蓝 -- 发布时间：2020/3/11 8:45:00 -- 我测试没有问题，这种用法可以统一到窗口表currentchanged事件处理 If r IsNot Nothing Then Tables("日计划").Position = Tables("日计划").FindRow(r.DataRow) If r.index < e.Table.rows.count - 1 Then
e.form.controls("Label02").text = e.Table.rows(r.index+1)("事件编号") End If End If \'窗口表与表格同步 |