主题：请看下，汉字出错的问题？

哦，我重新做过。Sorry!

你的 .mdb 很贵呀，里面都是空的？？？？？？？？？

是不是 18楼 的效果，怎么不回答：：
此主题相关图片如下：aa1.gif

不是的，我是要从文本文件中取数据的，是要为空的。否则不是导入的数据不一致，呵呵！

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

点击浏览该文件:管理项目88.rar

很抱歉！这回范例绝对没有问题，在窗口中，运行出库数据上传时为正常的，调用文本文件为ChkOutU.txt,如把代码的文件改成ChkOutU1.txt就出现问题，原因是我把第一个文件ChkOutU.txt中的汉字“Q全额无”，替换成了QQQQ,就是文件ChkOutU1.txt了。请老大帮测试下是什么问题？估计是汉字与字母的位置不同，字母为一个，汉字为二个，应如何解决此问题？为谢了！！！

改成全角字符试试看看?

您的按钮里面的代码应该判断数据库文件是否存在，否则出错！

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

点击浏览该文件:管理项目88.rar

换成全角不行，汉字是乱码了。

我说的是英文字母换个全角,呵呵

你理解错误了
字符串里面一个汉字的索引长度也是1 和字母一样。
"NF116255".SubString(0,3)  结果是 "NF1"
"Q全额无".SubString(0,3) 结果是 "Q全额"   

不用考虑汉字2字节 字母1字节

哦，应不是Substring的问题，是这个代码中取汉字产生的问题。
   Dim s As string = FileSys.ReadAllText("d:\ChkOutU1.txt")
    Dim Multi As String = s
    Dim Values() as String
    Dim s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13 as string
    Values = Multi.split(Chr(10))
    For Index As Integer = 0 To Values.Length - 2
        s1 = Values(Index)
发现ChkOutU1.txt中有汉字的话，s1的值，汉字部分取得乱码。字符正常。所以造成SubString取值结果出错了。