以下代码可执行:DataTables("会员信息").LoadFilter = "会员编号 = '" & Vars("选择会员编号") & "'"
DataTables("会员信息").Load
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
DataTables("会员信息").DataRows(0).SQLInsertFile("会员照片",dlg.FileName)
Dim PbPhoto As WinForm.PictureBox = e.Form.Controls("PbPhoto")
PbPhoto.Image = GetImage(dlg.FileName)
End If
以下代码出错:
Dim drs As List(of DataRow) = DataTables("会员信息").SQLSelect("会员编号 = '" & Vars("选择会员编号") & "'")
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
drs(0).SQLInsertFile("会员照片",dlg.FileName) '插入文件
Dim PbPhoto As WinForm.PictureBox = e.Form.Controls("PbPhoto")
PbPhoto.Image = GetImage(dlg.FileName)
End If
用SQLSelect得到的datarow无法使用SQLInsertFile
加好友 
发短信
Post By：2014/9/21 16:02:00 [显示全部帖子]
