附表结构图及说明
此主题相关图片如下：0123.jpg
错误提示如下
此主题相关图片如下：0123456.jpg
代码如下：
Dim Info As String
Info = FileSys.ReadAllText(ApplicationPath & "wz.txt", Encoding.Unicode) '读取生成的文本文件
info = info.Replace(vbcrlf,vblf) '将回车换行替换为换行
Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组
Dim r As Row = Tables("表A").AddNew
Dim s As String = pars(0).Trim()
r("备注") = s
Dim xm As String = s.split(" ")(0)
r("姓名") = xm
s = s.Replace(xm,"").Trim()
Info = FileSys.ReadAllText(ProjectPath & "mz.INI",Encoding.Default) '读取生成的文本文件
For Each Str As String In Info.Split(Chr(10), Chr(13))
If Str.StartsWith(s.SubString(1,2)) Then
r("名族") = Str.Replace(s.SubString(1,2) & "=", "")
Exit For
End If
Next
r("住址") = s.split(" ")(0).SubString(11)
s = s.Replace(s.split(" ")(0),"").Trim()
r("身份证号码") = s.SubString(0,18)
Dim xbm As Integer = val(s.SubString(0,18).SubString(16,1)) Mod 2
r("性别") = "女,男".split(",")(xbm)
r("出生日期") = s.SubString(0,18).SubString(6,8).Insert(6,"-").Insert(4,"-")
s = s.Replace(s.SubString(0,18),"").Trim()
r("发证机关") = s.split(" ")(0)
s = s.Replace(s.split(" ")(0),"").Trim()
r("签发日期") = s.SubString(0,8).Insert(6,"-").Insert(4,"-")
r("有效日期") = s.SubString(8,8).Insert(6,"-").Insert(4,"-") 求修改这个代码地方
[此贴子已经被作者于2014-6-12 10:33:59编辑过]
加好友 
发短信
Post By：2014/6/12 10:30:00 [只看该作者]
