主题：索引超出数组界限

 看了一下，这段代码不要写在datacolchanged，直接写到主表的datacolchanged里去

Dim f As New  Filler
f.SourceTable = DataTables("库调明细表_主表") '指定数据来源
f.SourceCols = "单据日期,门店,业务单号,数量,备注,款号,名称,颜色,尺码,收发类型,品牌,编码,年份,季节"  '指定数据来源列
f.DataTable = DataTables("出入库明细") '指定数据接收表
f.DataCols = "单据日期,门店,业务单号,数量,备注,款号,名称,颜色,尺码,收发类型,品牌,编码,年份,季节"  '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据