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


  共有6607人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
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

 回到顶部