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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码如何设置列表项目和显示数值列

共有3250人关注过本帖树形打印复制链接主题：代码如何设置列表项目和显示数值列

ShotHit

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

加好友

发短信

等级：幼狐帖子：127 积分：1463 威望：0 精华：0 注册：2014/10/15 11:39:00

代码如何设置列表项目和显示数值列 发帖心情

Post By：2014/10/30 9:03:00 [显示全部帖子]

Hi 版主：

问题 1：

With Tables("Tb_CusInfo")

.Cols("sales_area").ComboList=DataTables("Tb_UserInfo").GetComboListString("user_area") .Cols("sales_user").ComboList=DataTables("Tb_UserInfo").GetComboListString("user_id","[user_area]='&[user_area]&'")

End With

其中sales_user这列的设置成根据user_area的值得到对应的user_id,类似于省份城市这种.

这个代码如何写？

问题 2：

其中sales_user这列代码如何设置成取值列为 user_id,显示列为表Tb_UserInfo的user_name?

问题 3：

对于此类代码是放在项目AfterOpenProject中设置好，还是表的AfterTableLoadSeting中设置比较好？

初学者，望解答。谢谢。

ShotHit

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

加好友

发短信

等级：幼狐帖子：127 积分：1463 威望：0 精华：0 注册：2014/10/15 11:39:00

Post By：2014/10/30 9:33:00 [显示全部帖子]

感谢。

表Tb_CusInfo中PrepareEdit事件设置：

If e.IsFocusCell Then

If e.Col.Name = "sales_user" Then

e.Col.Combolist = DataTables("Tb_UserInfo").GetComboListString("user_id", "[user_area] = '" & e.Row("sales_area") & "'")

End If

同时在MainTableChanged事件中设置：

If MainTable.Name="Tb_CusInfo" Then

Dim dmp As New TableDataMap

dmp.DataTable="Tb_UserInfo" //这个地方能否动态设置？

dmp.ValueCol="user_id"

dmp.DisplayCol="user_name"

dmp.ListCols="user_area,user_name"

dmp.Sort="user_area"

Tables("Tb_CusInfo").Cols("sales_user").DataMap=dmp.CreateDataMap()

End If

这样的会，后面的数据字典设置就无效。

请问，如何让两个同时有效果？

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

主题：代码如何设置列表项目和显示数值列