- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 控件绑定 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106337)
-- 发布时间：2017/9/6 23:07:00
-- 控件绑定
可以让文本控件也绑定 甘特图吗？选择甘特图的时候也选中左边正行的表格，感谢 感谢
此主题相关图片如下：qq截图20170906225825.jpg
[此贴子已经被作者于2017/9/6 23:08:00编辑过]
-- 发布时间：2017/9/6 23:19:00
--
positionChanged事件
Dim tbl As Table = Tables("计划表窗口_Table4")
If tbl.Position <> e.Table.Position Then
tbl.Position = e.Table.Position
End If \'甘特图代码十二分之一
给窗口文本框赋值，参考
Dim r As Row = Tables("计划表窗口_Table4").Rows(Tables("计划表窗口_Table4").Position)
msgbox(r("办理人") & " " & r("备注"))
-- 发布时间：2017/9/6 23:31:00
--
谢谢 谢谢 同步选择可以了，只是可以是选中整行吗？
能在帮忙看看吗？
Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
Forms("窗口1").show
Forms("窗口1").Controls("DateTimePicker1").text = dt
Dim r As Row = Tables("计划表窗口_Table4").Rows(Tables("计划表窗口_Table4").Position)
msgbox(r("办理人") & " " & r("备注"))
Forms("窗口1").Controls("TextBox1").text = r
Forms("窗口1").Controls("TextBox2").text = r
和红色代码的功能差不多，都是绑定 计划表窗口_Table9对应TextBox1绑定 办理人， TextBox2 绑定 备注，感谢 感谢
[此贴子已经被作者于2017/9/6 23:39:23编辑过]
-- 发布时间：2017/9/6 23:38:00
--
以下是引用yangwenghd在2017/9/6 23:31:00的发言：
谢谢 谢谢 同步选择可以了，只是可以是选中整行吗？
谢谢 谢谢 同步选择可以了，只是可以是选中整行吗？
http://www.foxtable.com/webhelp/scr/1634.htm
-- 发布时间：2017/9/7 0:15:00
--
谢谢你 ，同步已经完全解决了 感谢 感谢 能在看看这个吗？
能在帮忙看看吗？
Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
Forms("窗口1").show
Forms("窗口1").Controls("DateTimePicker1").text = dt
Dim r As Row = Tables("计划表窗口_Table4").Rows(Tables("计划表窗口_Table4").Position)
msgbox(r("办理人") & " " & r("备注"))
Forms("窗口1").Controls("TextBox1").text = r
Forms("窗口1").Controls("TextBox2").text = r
和红色代码的功能差不多，都是绑定 计划表窗口_Table9对应TextBox1绑定 办理人， TextBox2 绑定 备注，感谢 感谢
-- 发布时间：2017/9/7 8:53:00
--
你窗口的控件，不要设置绑定表列。
-- 发布时间：2017/9/7 11:43:00
--
谢谢 没有绑定的呀，感谢 ，感谢 。
-- 发布时间：2017/9/7 12:09:00
--
不绑定，代码就不会有问题，请认真测试。
-- 发布时间：2017/9/7 13:58:00
--
代码是放在窗口还是放在那一个里面啊！感谢 感谢
-- 发布时间：2017/9/7 14:10:00
--
跨表查询
Dim t As Table = Tables("计划表窗口_Table9")
Dim dt As Date = t.Cols(t.colsel).Name.Replace("年","-").Replace("月_","-")
Dim r As Row = Tables("计划表窗口_Table4").Rows(t.Position)
Dim fdr As DataRow = DataTables("事件记录").find("事件日期=#" & dt & "# and 项目名称=\'" & r("项目名称") & "\' and 项目流程=\'" & r("项目流程") & "\'")
If fdr IsNot Nothing Then
msgbox(fdr("办理人") & " " & fdr("备注"))
End If