主题：索引超出数组界限

 是不是你的表事件写了什么代码，而导入的数据不规范造成出错？

 看DataRowAdded和出入库明细表的datacolchanged和DataRowAdded，看写了些什么。

 excel有问题吧？几分钟了，还是打不开你显示你的表格。

再检查了一下，设这段代码写错了，你写少了一个

 

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

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

 

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