-- 作者:有点甜
-- 发布时间:2017/8/21 16:27:00
--
Enter事件
Dim str As String = e.form.controls("CHECKEDCOMBOBOX1").text If str > "" Then e.Sender.ComboList = DataTables("安排").GetComboListString("制单号", "排产完毕 = false and 组装品 in (\'" & str & "\')") Else e.Sender.ComboList = DataTables("安排").GetComboListString("制单号", "排产完毕 = false") End If
|