以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  索引超出数组界限  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51207)

--  作者:阆子天涯
--  发布时间:2014/5/21 20:37:00
--  索引超出数组界限
我导入3万多条数据,提示索引超出数据界限,怎么办?
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140521203314.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2014/5/21 20:38:00
--  
 是不是你的表事件写了什么代码,而导入的数据不规范造成出错?
--  作者:阆子天涯
--  发布时间:2014/5/21 20:49:00
--  

 

表的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() \'填充数据

 


--  作者:有点甜
--  发布时间:2014/5/21 20:51:00
--  

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


--  作者:阆子天涯
--  发布时间:2014/5/21 21:05:00
--  

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar


--  作者:有点甜
--  发布时间:2014/5/21 21:10:00
--  
 excel有问题吧?几分钟了,还是打不开你显示你的表格。
--  作者:阆子天涯
--  发布时间:2014/5/21 21:26:00
--  
密码是1234
--  作者:有点甜
--  发布时间:2014/5/21 21:28:00
--  

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

 

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


--  作者:阆子天涯
--  发布时间:2014/5/22 10:41:00
--  
哦,非常感谢!
--  作者:阆子天涯
--  发布时间:2014/5/22 20:00:00
--  
有点甜版主,我按照你说的方法改了,结果一导入数据,foxtable就直接给我退出来了,再帮我看下,还是5楼那个附件,谢谢!