[求助] 自动读取值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 自动读取值

共有3184人关注过本帖树形打印复制链接主题：[求助] 自动读取值

w158330648

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

加好友

发短信

等级：幼狐帖子：122 积分：1188 威望：0 精华：0 注册：2014/12/29 22:48:00

[求助] 自动读取值 发帖心情

Post By：2015/10/6 0:25:00 [只看该作者]

此主题相关图片如下：0000.jpg

此主题相关图片如下：11111.png

大神帮我下表A里面 ComboBox1的值自动读取表B第一行的数据表B只有9列的情况下

代码怎么下啊每次运行自动读取

[此贴子已经被作者于2015/10/6 0:27:06编辑过]

sloyy

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

加好友

发短信

等级：九尾狐帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2015/10/6 10:08:00 [只看该作者]

最简单的办法:把数字填在每一行,不要填在每一列,然后绑定,等你会编程后,才考虑别的方法

lindong

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

加好友

发短信

等级：一尾狐帖子：468 积分：4132 威望：0 精华：0 注册：2013/12/9 0:52:00

Post By：2015/10/6 15:45:00 [只看该作者]

代码这样写：enter事件

Dim cmb As WinForm.ComboBox = e.Sender

cmb.ComboList = DataTables("表B").GetComboListString("第一列")&DataTables("表B").GetComboListString("第二列")&DataTables("表B").GetComboListString("第三列")&DataTables("表B").GetComboListString("第四列")&DataTables("表B").GetComboListString("第五列")&DataTables("表B").GetComboListString("第六列")&DataTables("表B").GetComboListString("第七列")&DataTables("表B").GetComboListString("第八列")&DataTables("表B").GetComboListString("第九列")

w158330648

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

加好友

发短信

等级：幼狐帖子：122 积分：1188 威望：0 精华：0 注册：2014/12/29 22:48:00

Post By：2015/10/6 18:12:00 [只看该作者]

此主题相关图片如下：555.png

不行啊提示这个

lindong

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

加好友

发短信

等级：一尾狐帖子：468 积分：4132 威望：0 精华：0 注册：2013/12/9 0:52:00

Post By：2015/10/6 18:36:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自动读取值.table

w158330648

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

加好友

发短信

等级：幼狐帖子：122 积分：1188 威望：0 精华：0 注册：2014/12/29 22:48:00

Post By：2015/10/8 22:07:00 [只看该作者]

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

此主题相关图片如下：99999.jpg

问下我刚这边试了下拉框数据都合在一起了怎么分开啊

还有问下当前我只弄了9列如果我有50列的情况下你的代码可以简化吗

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/8 22:12:00 [只看该作者]

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = ""
For Each c As Col In Tables("固定数据编辑").Cols
str &= Tables("固定数据编辑").Current(c.name) & "|"
Next
cmb.ComboList = str.trim("|")

w158330648

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

加好友

发短信

等级：幼狐帖子：122 积分：1188 威望：0 精华：0 注册：2014/12/29 22:48:00

Post By：2015/10/8 22:16:00 [只看该作者]

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

主题：[求助] 自动读取值