老师好,无法导入。
此主题相关图片如下:导入报错.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-5/2015581964669787.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