If dlg.ShowDialog = DialogResult.Ok Then
Dim strs As String = Filesys.ReadAllText(dlg.FileName)
strs = strs.Replace(vblf,"")
Dim rs() As String=strs.Split(vbcr)
Output.Show(rs.length)
For i As Integer = 1 To rs.Length - 1
Dim cs() As String = rs(i).Split(",") 如果是逗号分隔
Output.Show(cs.length)
Output.Show(DataTables("公司存款导入").DataCols.Count)
If cs.Length = 65 Then
Dim dr As DataRow = DataTables("公司存款导入").Addnew()
For j As Integer = 0 To DataTables("公司存款导入").DataCols.Count - 1
dr(j)=cs(j)
Next
End If
Next
End If
加好友 
发短信
Post By：2019/12/3 16:50:00 [显示全部帖子]
