[求助]导入数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]导入数据

共有2809人关注过本帖树形打印复制链接主题：[求助]导入数据

风声

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1014 积分：6757 威望：0 精华：0 注册：2014/2/12 20:14:00

[求助]导入数据 发帖心情

Post By：2015/5/8 19:09:00 [只看该作者]

老师好，无法导入。

图片点击可在新窗口打开查看此主题相关图片如下：导入报错.png

下面是按钮代码

Dim str As String = FileSys.ReadAllText(e.Form.Controls("ComboBox1").Text,Encoding.Default)
Dim ary() As String = str.Split(new Char() {chr(10), Chr(13)})
For i As Integer = 1 To ary.Length -2
    Dim s() As String = ary(i).Split(",")
    Dim nr As DataRow = DataTables("苏州银行个人账户").AddNew
    nr("交易日期") = s(0).replace("""", "").trim()
    nr("收入金额") = s(1).replace("""", "").trim()
    nr("支出金额") = s(2).replace("""", "").trim()
    nr("余额") = s(3).replace("""", "").trim()
    nr("对方户名") = s(4).replace("""", "").trim()
    nr("对方银行") = s(5).replace("""", "").trim()
    nr("用途") = s(6).replace("""", "").trim()
Next

风声

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1014 积分：6757 威望：0 精华：0 注册：2014/2/12 20:14:00

Post By：2015/5/9 8:31:00 [只看该作者]

老师，数据无法导入了，以前一直很好的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:数据导入.rar

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/9 8:48:00 [只看该作者]

因为你S长度不够

if s.length>6 then
    nr("交易日期") = s(0).replace("""", "").trim()
    nr("收入金额") = s(1).replace("""", "").trim()
    nr("支出金额") = s(2).replace("""", "").trim()
    nr("余额") = s(3).replace("""", "").trim()
    nr("对方户名") = s(4).replace("""", "").trim()
    nr("对方银行") = s(5).replace("""", "").trim()
    nr("用途") = s(6).replace("""", "").trim()

end if
Next