老师好，无法导入。

此主题相关图片如下：导入报错.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

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

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

点击浏览该文件:数据导入.rar

老师，上面的代码在导入时增加了一半的空行

将这行代码放在 IF s.Length > 6 之后，试试。

Dim nr As DataRow = DataTables("苏州银行个人账户").AddNew

谢谢，已解决。