专家坐堂-设置 DataSource 属性后无法修改项集合。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DataTables("大货用料表").load

Tables("大货用量表_table1").Cols("物料基本信息_物料名称").DropForm ="物料录入"

e.Form.Controls("table1").ContextStrip = e.Form.Strips("右键")

If Forms("大货用量表").Opened Then

Dim pd As WinForm.ComboBox = Forms("大货用量表").Controls("ComboBox1")

Dim pdID As WinForm.ComboBox = Forms("大货用量表").Controls("ComboBox2")

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox4")

Dim tid As Integer = val(pdID.text)

If pd IsNot Nothing Then

cmb.ComboList = DataTables("款式颜色").GetComboListString("颜色", "[款号] = \'" & pd.text & "\' and [款号ID] = \'" & tid & "\'")

Tables("大货用量表_table1").Filter = "[款号] = \'" & pd.text & "\'and [款号ID] = \'" & tid & "\'"

Tables("大货用量表_table4").Filter = "[款号] = \'" & pd.text & "\'and [款号ID] = \'" & tid & "\'"

Tables("大货用量表_table6").Filter = "[款号] = \'" & pd.text & "\'and [款号ID] = \'" & tid & "\'"

Tables("大货用量表_table1").Sort = "物料基本信息_物料ID"

Else

Tables("大货用量表_table1").Filter ="false"

Tables("大货用量表_table4").Filter ="false"

Tables("大货用量表_table6").Filter ="false"

End If

Tables("大货用量表_table1").Cols.Frozen = 4

End If