主题：索引超出数组界限

我导入3万多条数据，提示索引超出数据界限，怎么办？
此主题相关图片如下：qq图片20140521203314.jpg

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

 

表的DataColChanged

 

 

If e.DataCol.Name = "编码" Then
    Dim nms() As String = {"款号","名称","颜色","尺码","大类","年份","季节","品牌","零售价"}  根据导入的编码找对应的款号，名称等
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("货号信息").Find("[编码] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

 

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

 

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

这2个我也看了，没啥东西，要不帮忙我看下，目的就是通过系统出入库窗口导入按钮导入数据就可以，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.rar

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

密码是1234

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

 

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

哦，非常感谢！

有点甜版主，我按照你说的方法改了，结果一导入数据，foxtable就直接给我退出来了，再帮我看下，还是5楼那个附件，谢谢！