老师，下面代码不知错在哪里？
If Tables("通讯录").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("通讯录").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
dr.SQLInsertFile("照片",dlg.FileName) '插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(dlg.FileName)
FileSys.CopyFile(dlg.FileName, "H:\个人证件图片\证件照\" & FileSys.GetName(dlg.fileName),True)
Tables("通讯录").Current("照片路径") = FileSys.GetName(dlg.fileName)
End If
此主题相关图片如下：二进制列.png
[此贴子已经被作者于2020/6/10 9:12:32编辑过]
加好友 
发短信
Post By：2020/6/10 9:12:00 [显示全部帖子]
