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

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2018.10.9.1

错误所在事件：窗口,大货用量表,AfterLoad

详细错误信息：

设置 DataSource 属性后无法修改项集合。

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

[此贴子已经被作者于2018/11/3 15:40:32编辑过]

主题：设置 DataSource 属性后无法修改项集合。