- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- combobox没有数据字典功能 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33119)
-- 发布时间：2013/5/14 11:14:00
-- combobox没有数据字典功能
此主题相关图片如下：qq截图20130514111239.png
此主题相关图片如下：qq截图20130514111425.png
[此贴子已经被作者于2013-5-14 11:14:40编辑过]
-- 发布时间：2013/5/14 11:18:00
--
这个结果不是对了吗，你取值就是ID列啊
-- 发布时间：2013/5/14 14:38:00
-- 取值显示不要是数字
取值显示不要是数字，而是字段名，但保存的要是数字
-- 发布时间：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("发票信息").Current("发票类型") = dr("id")
End If
-- 发布时间：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