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

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

共有5353人关注过本帖树形打印复制链接主题：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编辑过]

hsjyp0559

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

加好友

发短信

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

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

Post By：2013/5/14 14:38:00 [显示全部帖子]

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

hsjyp0559

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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没有数据字典功能