-- 作者:有点甜
-- 发布时间:2018/1/18 15:03:00
--
Dim t As Table = Tables("工序跟踪表") If t.current Is Nothing Then msgbox("表格没数据") Return End If
MessageBox.Show(1) Dim filter As String = "成品编码 = \'" & t.current("成品编码") & "\' and 生产批次 = \'" & t.current("生产批次") & "\'" MessageBox.Show(2) e.Sender.ComboList = DataTables("生产排产表").SQLGetComboListString("加工工序", filter) MessageBox.Show(3)
[此贴子已经被作者于2018/1/18 15:03:18编辑过]
|