代码拼装的多列数据字典不显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码拼装的多列数据字典不显示

共有3229人关注过本帖树形打印复制链接主题：代码拼装的多列数据字典不显示

TongOk

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

加好友

发短信

等级：婴狐帖子：47 积分：373 威望：0 精华：0 注册：2014/11/19 17:23:00

Post By：2014/12/2 22:16:00 [只看该作者]

不执行的话能看到效果(这是在表结构中)，如果执行的话是在窗口中这样就看不到效果

TongOk

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

加好友

发短信

等级：婴狐帖子：47 积分：373 威望：0 精华：0 注册：2014/11/19 17:23:00

Post By：2014/12/2 22:18:00 [只看该作者]

我是想在窗口table中有此效果

有点甜

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

加好友

发短信

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

Post By：2014/12/2 22:25:00 [只看该作者]

以下是引用TongOk在2014-12-2 22:16:00的发言：
不执行的话能看到效果(这是在表结构中)，如果执行的话是在窗口中这样就看不到效果

1、代码不要写在ChangedEdit事件，没有意义，会造成空白；

2、我这样测试没问题

Dim cmd As New SQLCommand
Dim dt As DataTable

cmd.CommandText = "SELECT personno,name,sex,telephone,gw From {person} "
dt = cmd.ExecuteReader()

Dim mdm As New MultiDataMap
For Each dr1 As DataRow In dt.DataRows
mdm.add(dr1("personno")&"|"&dr1("name")&"|"&dr1("sex")&"|"&dr1("telephone"))
Next
mdm.ValueCol = 0
mdm.DisplayCol = 1
Tables("订单管理_Table1").Cols("linkman").DataMap = mdm.CreateDataMap()

[此贴子已经被作者于2014-12-2 22:25:30编辑过]