菜单按钮设置：
If DataTables.Contains("物料颜色") = False Then '如果表C没有加载
DataTables.Load("物料颜色") '加载表C
DataTables("物料颜色").loadfilter = "[_Identify] Is Null"
DataTables("物料颜色").load
Else If DataTables.Contains("物料颜色") = True Then
DataTables("物料颜色").loadfilter = "[_Identify] Is Null"
DataTables("物料颜色").load
End If
打开窗口后：
Dim pd As WinForm.ComboBox = Forms("大货用量表").Controls("ComboBox1")
Dim pdID As WinForm.ComboBox = Forms("大货用量表").Controls("ComboBox2")
Dim tid As Integer = val(pdID.text)
DataTables("物料颜色").loadfilter = "[款号] = '" & pd.text & "'and [款号ID] = '" & tid & "'"
DataTables("物料颜色").load
提示：
此主题相关图片如下：微信图片_20200811132626.png
[此贴子已经被作者于2020/8/11 13:54:11编辑过]
加好友 
发短信
Post By：2020/8/11 13:27:00 [显示全部帖子]
