以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  选取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93771)

--  作者:longyanlin
--  发布时间:2016/12/6 17:10:00
--  选取

做了个入库单:窗口有一个ComboBox1,       一个ComboBox2,现在想达到如下目的,求救:

ComboBox1里面选择“采购”的时候         ComboBox2里面只出现“采购单”表里面的采购单号 

ComboBox1里面选择“生产”的时候         ComboBox2里面只出现“生产单”表里面的生产单号 

ComboBox1里面选择“外协”的时候         ComboBox2里面只出现“外协单”表里面的外协单号 

 


--  作者:有点蓝
--  发布时间:2016/12/6 17:14:00
--  
参考:http://www.foxtable.com/webhelp/scr/1523.htm
--  作者:longyanlin
--  发布时间:2016/12/6 17:36:00
--  

参考这个达不到效果啊,因为ComboBox1是不绑定在表里面的,是自定义里面的值(采购,生产,外协),ComboBox2是选取三个表的单号


--  作者:有点蓝
--  发布时间:2016/12/6 17:41:00
--  
用法一样,理解代码
--  作者:有点色
--  发布时间:2016/12/6 17:42:00
--  

Dim str As String = e.Form.Controls("ComboBox1").Text

If str = "采购" Then
    e.Form.controls("ComboBox2").ComboList = DataTables("采购单").GetComboListString("采购单号")
ElseIf str = "生产" Then
    e.Form.controls("ComboBox2").ComboList = DataTables("生产单").GetComboListString("生产单号")
ElseIf str = "外协" Then
    e.Form.controls("ComboBox2").ComboList = DataTables("外协单").GetComboListString("外协单号")
End If


--  作者:longyanlin
--  发布时间:2016/12/6 17:46:00
--  

色色老师,挺你!

小妹有礼了

图片点击可在新窗口打开查看


--  作者:longyanlin
--  发布时间:2016/12/6 18:13:00
--  

色色老师,ComboBox1,绑定入库单的属性列,ComboBox2绑定入库单的选择单号,按5楼代码,输入好像有点问题,会提示: 设置 DataSource 属性后无法修改项集合。

如果不绑定的话,那我的表入库单里面的列属性,选择单号就需要重复输入一遍


--  作者:longyanlin
--  发布时间:2016/12/6 18:35:00
--  
老师,加一句Tables("入库单").Current("属性") = str就可以了,谢谢
--  作者:有点蓝
--  发布时间:2016/12/6 20:30:00
--  
可以绑定列,但是不要设置猎豹项目了