因为你S长度不够
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
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
加好友 
发短信
Post By：2015/5/9 8:48:00 [显示全部帖子]
