主题：多项选择

不，可，能

 

Dim Vals As List(of String())
Vals = DataTables("毛坯工序状态表").GetValues("毛坯编码|批次序号", "未加工工序 = 'xxx' and 毛坯编码 in ('" & e.form.controls("毛坯编码").Text & "')")
For i As Integer = 0 To Vals.Count - 1
     Dim dr As DataRow = DataTables("生产任务下达_每日排产").AddNew()
     dr("毛坯编码") = Vals(i)(0)
     dr("批次序号") = Vals(i)(1)
 Next

Dim drs = DataTables("毛坯工序状态表").Select("未加工工序 = '加工工序' and 毛坯编码 in ('" & e.form.controls("毛坯编码1").Text & "')")
For Each dr As DataRow In drs
    Dim ndr As DataRow = DataTables("生产任务下达_每日排产").AddNew()
    ndr("毛坯编码") = dr("毛坯编码")
    ndr("批次序号") = dr("批次序号")
Next

参考

 

http://www.foxtable.com/webhelp/scr/1523.htm

 

怎么合并？第一段代码是给组合框设置下拉列表，这时候还没有值，必须要有人手工选择项目，才能使用代码二

1、代码一的代码，能否正常运行了？能否出现下拉了？如果可以说明没问题啊。

 

2、代码二的代码，你执行了有什么问题？最基础的代码你要看懂啊，不然请回头学一下基础教程