- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]二进制列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150887)
-- 发布时间：2020/6/10 9:12:00
-- [求助]二进制列
老师，下面代码不知错在哪里？
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编辑过]
-- 发布时间：2020/6/10 9:20:00
--
如果不是新增行，代码没有问题，刷新一下数据库表
-- 发布时间：2020/6/10 9:30:00
--
老师，是新增行。图片不显示，另外两行用插入图片按钮二进制列有数据并能显示。
-- 发布时间：2020/6/10 9:44:00
--
仔细看看帮助：http://www.foxtable.com/webhelp/topics/2951.htm
-- 发布时间：2020/6/10 9:53:00
--
老师，实在搞不懂。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:通讯录.rar |
-- 发布时间：2020/6/10 9:53:00
--
无语！连帮助都看不懂了
选择一个Word文件，并插入到员工表的附件列中：
If Tables("员工").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
If dr.RowState = DataRowState.Added Then \'如果是新增行,必须先保存才能插入文件
dr.Save()
End If
Dim dlg As New OpenFileDialog
dlg.Filter = "Word文件|*.doc"
If dlg.ShowDialog =DialogResult.OK Then
dr.SQLInsertFile("附件",dlg.FileName) \'插入文件
End If
提示：请自行思考一下，为什么新增行必须先保存才能插入文件呢？