主题：数据格式化问题

dim str as string = "20160711"

Dim d As Date = new Date(str.substring(0,4), str.SubString(4,2), str.SubString(6,2))

msgbox(d)

读卡后，在项目里会有一个 pic.wlt 的文件吧？然后直接解码就行了啊

全局代码

<DllImport("WltRS.dll", CallingConvention := CallingConvention.StdCall)> _
Private Shared Function GetBmp(pucPHMsg As String, intf As Integer) As Integer
End Function

调用

GetBmp(ApplicationPath & "zp.wlt", 2)

然后就会生成 zp.bmp

 读取到数据后，把图片拷贝到某目录，即可。

FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"

 照片列，改成图片列。

 只要执行了7楼的代码，就肯定能拷贝文件并显示文件啊。

只是提供思路啊。如果人家已经解码得到bmp文件那就直接用7楼的代码啊

FileSys.CopyFile(ProjectPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号") & ".bmp",True) '照片复制到Attachments目录
e.Form.Controls("PictureBox1").imagefile = ProjectPath & "zp.bmp"

r("图片") = r("身份证号") & ".bmp"