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

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

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

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

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/27 15:56:00 [只看该作者]

事件用错了，应该用PrepareEdit事件，而不是StartEdit事件

sdykjrc

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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事件添入的代码

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/27 16:43:00 [只看该作者]

哈，二楼不是说了吗，用PrepareEdit事件。

另外事件代码，尽量用e参数，例如e.Table

代码改为这样清晰点：

Dim r As Row = e.Row
If e.Col.Name = "物资名称"
    Select Case r("物资名称")
        Case "金属材料"
            e.Col.Combolist = DataTables("金属基本资料").GetComboListString("金属基本资料", "[材料名称] ='" & r("物资名称") & "'")
        Case "设备"
            e.Col.Combolist = DataTables("设备基本资料").GetComboListString("设备基本资料", "[设备名称] ='" & r("物资名称") & "'")
    End Select
End If