新手学习关于下拉框的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新手学习关于下拉框的问题

共有6606人关注过本帖树形打印复制链接主题：新手学习关于下拉框的问题

sdykjrc

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

加好友

发短信

等级：婴狐帖子：8 积分：133 威望：0 精华：0 注册：2013/3/11 14:10:00

新手学习关于下拉框的问题 发帖心情

Post By：2013/3/27 15:26:00 [显示全部帖子]

想实现这样一个功能。

下拉框有2项供选择金属材料设备

当选择金属材料的时候希望生成一个新的下拉框

当选择设备的时候希望重新生成一个新的下拉框

下面是在StartEdit事件添入的代码。

Dim r As Row = Tables("材料出库明细表").Current

If e.Col.Name = "物资名称" And r("物资名称")="金属材料" Then

e.Col.Combolist = DataTables("金属基本资料").GetComboListString("金属基本资料", "[材料名称] ='" & e.Row("物资名称") & "'")

End If

If e.Col.Name = "物资名称" And r("物资名称")="设备" Then

e.Col.Combolist = DataTables("设备基本资料").GetComboListString("设备基本资料", "[设备名称] ='" & e.Row("物资名称") & "'")

End If

sdykjrc

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

加好友

发短信

等级：婴狐帖子：8 积分：133 威望：0 精华：0 注册：2013/3/11 14:10:00

Post By：2013/3/27 16:34:00 [显示全部帖子]

狐爸你看我的想法对不对

1》AfterOpenProject事件加入了下面代码

Tables("材料出库明细表").Cols("物资名称").Combolist = DataTables("金属基本资料").GetComboListString("材料名称")

Tables("材料出库明细表").Cols("物资名称").Combolist = DataTables("设备基本资料").GetComboListString("设备名称")

2》出库材料单里面设置设置了列属性

金属材料|设备

3》StartEdit事件添入的代码

sdykjrc

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

加好友

发短信

等级：婴狐帖子：8 积分：133 威望：0 精华：0 注册：2013/3/11 14:10:00

Post By：2013/3/28 10:56:00 [显示全部帖子]

狐爸还是遇到一个问题当我选择设备后下拉框不会立即更新。必须重新点击下拉框才更新。

sdykjrc

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

加好友

发短信

等级：婴狐帖子：8 积分：133 威望：0 精华：0 注册：2013/3/11 14:10:00

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

出库明细表录入数据物资名称列下拉框部能及时更新

下载信息 [文件大小：下载次数： ]
点击浏览该文件:材料管理.zip

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

主题：新手学习 关于下拉框的问题

主题：新手学习关于下拉框的问题