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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字段之列表项目

共有2094人关注过本帖树形打印复制链接主题：字段之列表项目

santde

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

加好友

发短信

等级：童狐帖子：274 积分：2293 威望：0 精华：0 注册：2015/6/14 18:33:00

字段之列表项目 发帖心情

Post By：2016/3/9 16:16:00 [只看该作者]

tb.Cols("FSFromTbalesj").ComboList="AfterCheckRow｜AfterDragColumn｜AfterEdit|AfterFilter|AfterFreezeColumn|AfterLoad"

能否用代码设置这个列的列表字段为多值字段

santde

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

加好友

发短信

等级：童狐帖子：274 积分：2293 威望：0 精华：0 注册：2015/6/14 18:33:00

Post By：2016/3/9 16:51:00 [只看该作者]

Dim tb As Table = e.Form.Controls("Table1").Table

tb.DataTable.DataCols("第四列").ExtendType = ExtendTypeEnum.Values

tb.Cols("第四列").ComboList = "测试一|测试二|测试三|测试四"

这个是可以实现，但能实现官方列字段里的多值字段的属性设置：取值列和显示列不一样不。

另控件 ComboBox 可以方便地设置 .ComboList 属性值，但貌似无法设置多值字段，希望官方能提供一致性功能

大红袍

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

加好友

发短信

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

Post By：2016/3/9 16:56:00 [只看该作者]

1、不能取值列和显示列不一样。要做，就只能变通地做，如

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=80415&skin=0

2、用 CheckedComboBox 控件。

santde

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

加好友

发短信

等级：童狐帖子：274 积分：2293 威望：0 精华：0 注册：2015/6/14 18:33:00

Post By：2016/3/9 16:56:00 [只看该作者]

Dim cmb As WinForm.ComboBox

cmb = e.Form.Controls("ComboBox1")

cmb.DisplayMember = "客户名称" '设置显示列

cmb.ValueMember = "客户编号" '设置取值列

cmb.DataFilter = "[区] = 'A'"

cmb.DataSource = "客户" '列表项目来自于客户表

希望官方修复这个在帮助中有出现的代码，但是运行不成功的BUG

大红袍

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

加好友

发短信

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

Post By：2016/3/9 17:31:00 [只看该作者]

这段代码没什么问题，最后再filter就行，只是修改不太及时而已。

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

cmb.DisplayMember = "客户名称" '设置显示列
cmb.ValueMember = "客户编号" '设置取值列

cmb.DataSource = "客户" '列表项目来自于客户表
cmb.DataFilter = "区 = 'A'"

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

主题：字段之列表项目