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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → combobox没有数据字典功能

共有5352人关注过本帖树形打印复制链接主题：combobox没有数据字典功能

hsjyp0559

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

加好友

发短信

等级：婴狐帖子：28 积分：647 威望：0 精华：0 注册：2013/4/23 9:22:00

combobox没有数据字典功能 发帖心情

Post By：2013/5/14 11:14:00 [只看该作者]

此主题相关图片如下：qq截图20130514111239.png

此主题相关图片如下：qq截图20130514111425.png

[此贴子已经被作者于2013-5-14 11:14:40编辑过]

XYT

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

加好友

发短信

等级：六尾狐帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00

Post By：2013/5/14 11:18:00 [只看该作者]

这个结果不是对了吗，你取值就是ID列啊

hsjyp0559

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

加好友

发短信

等级：婴狐帖子：28 积分：647 威望：0 精华：0 注册：2013/4/23 9:22:00

取值显示不要是数字 发帖心情

Post By：2013/5/14 14:38:00 [只看该作者]

取值显示不要是数字，而是字段名，但保存的要是数字

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/5/15 0:03:00 [只看该作者]

变通一下

取值列改为 fplx

save按钮事件：

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim dr As DataRow = cm.SelectedItem

If dr IsNot Nothing Then

Tables("fa piao信息").Current("fa piao类型") = dr("id")

End If

hsjyp0559

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

加好友

发短信

等级：婴狐帖子：28 积分：647 威望：0 精华：0 注册：2013/4/23 9:22:00

终于解决了

Post By：2013/5/23 15:22:00 [只看该作者]

这个问题解决了

一、建立[地区_组团社]主从关联

二、在组团社表里加一个[表达式列] 表达式为：Parent(地区_组团社).DiQv

三、加一个combobox3, 显示列，取值列都为DiQv

四、ValueChange事件代码：

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim dr As DataRow = cm.SelectedItem
If dr IsNot Nothing Then
Tables("组团社信息列表_table1").Current("diqv") = dr("id")
End If

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

主题：combobox没有数据字典功能