- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]表A第一列路径文件PictureBox预览报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105774)
-- 发布时间：2017/8/25 16:59:00
-- [求助]表A第一列路径文件PictureBox预览报错
想实现切换表A第一列的行时，窗口1的PictureBox预览对应路径的dwg格式文件，报错
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表a第一列路径文件预览.foxdb |
此主题相关图片如下：报错窗口.png
dwg格式文件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:！放在d盘根目录的文件.rar |
[此贴子已经被作者于2017/8/25 17:00:29编辑过]
-- 发布时间：2017/8/25 17:02:00
--
If Forms("窗口1").Opened Then \'如果窗口已经打开
Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1")
If Tables("表A").Current Is Nothing Then
pbx.Image = Nothing
Else
pbx.Image = Tables("表A").Current.DataRow.SQlLoadImage("第一列") \'这句代码怎么修改呢？
End If
End If
-- 发布时间：2017/8/25 17:09:00
--
If Forms("窗口1").Opened Then \'如果窗口已经打开
Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1")
If Tables("表A").Current Is Nothing Then
pbx.Image = Nothing
Else
Dim pb As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pb.Image = GetDwgImage( Tables("表A").Current("第一列"))
End If
End If
-- 发布时间：2017/8/25 17:24:00
--
可以了，谢谢