为什么这段代码不能导入中文的字段?
比如“扫描位置”如果是中文的话，导进FT后，就是空值或者乱码，如果是英文的话就没有问题！
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("资产盘点").StopRedraw
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)
For i As Integer = 0 To rs.Length - 1
Dim cs() As String = rs(i).Split(",")
Dim dr As DataRow = DataTables("资产盘点").Addnew()
dr("扫描位置") = cs(0)
dr("资产编号") = cs(1)
dr("数量") = cs(2)
dr("扫描时间") = cs(3)
dr("AddName") = cs(4)
Next
End If
Tables("资产盘点").ResumeRedraw
加好友 
发短信
Post By：2016/9/29 9:48:00 [只看该作者]
