主题：自动引用失效

datacolchanged事件，拷贝到窗口表格的datatacolchanged事件去。

试试改成这样

 

Dim h As New Filler
h.SourceTable = DataTables("生产计划下达_BOM分配") '指定数据来源
h.DataTable = DataTables("原材料需求明细") '指定数据接收表
h.Fill()

 两个表的列的类型，必须一致。

 

 你bom表是字符列，但明细表是日期列，就有可能出错。

Dim t1 As Table = e.Form.Controls("BOM分配").Table
Dim sql As String = "Select *  from {BOM基础数据} where 成品编码 in ('" & DataTables("生产计划下达_生产排产分配表").GetComboListString("成品编码").replace("|", "','") & "')"
t1.fill(sql, True)

 你写了什么代码？执行了什么代码？

 项目发上来测试。

 

 

改成

 

Dim t1 As Table = e.Form.Controls("BOM分配").Table
Dim sql As String = "Select *  from {原材料需求明细} where 成品编码 in ('" & DataTables("生产计划下达_生产在制").GetComboListString("成品编码").replace("|", "','") & "')"
t1.fill(sql, True)

改成这样

 

Dim t1 As Table = e.Form.Controls("BOM分配").Table

Dim h As New Filler
h.SourceTable = DataTables("BOM基础数据") '指定数据来源
h.DataTable =  t1.DataTable
h.ExcludeExistValue = True
h.filter = "成品编码 in ('" & DataTables("生产计划下达_生产在制").GetComboListString("成品编码").replace("|", "','") & "')"
h.Fill()