- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- TABLE绑定控件问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34822)
-- 发布时间：2013/6/17 9:05:00
-- TABLE绑定控件问题
用TABLE绑定控件，但是点击的时候绑定的控件却不显示字段文本
此主题相关图片如下：qq截图20130617090321.jpg
请帮忙看看，谢谢
-- 发布时间：2013/6/17 9:08:00
--
什么意思? 没看懂.
-- 发布时间：2013/6/17 9:13:00
--
我点击第一行记录的时候，编号旁边的文本框应该显示这一行记录单元格内容‘222’
-- 发布时间：2013/6/17 9:14:00
--
你是否有绑定这个表呢? 要知道,如果你TABLE控件做为副本表的话那么就属于另外一个表了
-- 发布时间：2013/6/17 9:14:00
--
发个例子上来吧。
-- 发布时间：2013/6/17 9:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:dz.rar |
前面一个模块我绑定没问题，但是COMPUTER模块绑定就不行了，效果你可以看一下一厂IP模块看下，谢谢！
-- 发布时间：2013/6/17 9:29:00
--
无法连接数据库 打开不了表 没办法测试.
参考我4楼说得,绝对没问题. 如果你是SQL填充的表. 那么请使用表的CurrentChanged事件来为该文本框赋值.
-- 发布时间：2013/6/17 9:31:00
--
你把ACESS连接路径改一下就可以了
-- 发布时间：2013/6/17 9:34:00
--
如果是副本表的话 在副本表的这个事件加个代码:
CurrentChanged 副本表事件
If e.Table.Current
Is Nothing Then \'如果Current为Nothing
Return
\'则返回
End
If
Dim wz As
Integer
Dim dr As
DataRow
dr = DataTables("客户").Find("[客户ID] = \'" & e.Table.Current("客户ID") &
"\'")
If dr IsNot Nothing
Then
wz = Tables("客户").FindRow(dr)
If wz
>= 0
Then
Tables("客户").Position = wz
End
If
End
If
自己修改下表名和列名.
-- 发布时间：2013/6/17 9:34:00
--
改下ACCESS路径我都不会的话,你还来问我帮助你,不是浪费功夫吗?