控件绑定 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 控件绑定

共有2100人关注过本帖树形打印复制链接主题：控件绑定

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

控件绑定

Post By：2017/9/6 23:07:00 [只看该作者]

可以让文本控件也绑定甘特图吗？选择甘特图的时候也选中左边正行的表格，感谢感谢

此主题相关图片如下：qq截图20170906225825.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:控件绑定b.table

[此贴子已经被作者于2017/9/6 23:08:00编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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("备注"))

yangwenghd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：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编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/6 23:38:00 [只看该作者]

以下是引用yangwenghd在2017/9/6 23:31:00的发言：
谢谢谢谢同步选择可以了，只是可以是选中整行吗？

http://www.foxtable.com/webhelp/scr/1634.htm

yangwenghd

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：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 绑定备注，感谢感谢

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/7 8:53:00 [只看该作者]

你窗口的控件，不要设置绑定表列。

yangwenghd

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2017/9/7 11:43:00 [只看该作者]

谢谢没有绑定的呀，感谢，感谢。

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/7 12:09:00 [只看该作者]

不绑定，代码就不会有问题，请认真测试。

yangwenghd

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2017/9/7 13:58:00 [只看该作者]

代码是放在窗口还是放在那一个里面啊！感谢感谢

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

总数 15 1 2 下一页

主题：控件绑定