专家坐堂-用按钮向单元格里增加图片Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用按钮向单元格里增加图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144659)

--  作者：禾成
--  发布时间：2019/12/26 13:26:00
--  用按钮向单元格里增加图片
请老师指教
功能：我在窗体建个按钮和一个图片控件（不想要图片浏览器），通过按钮增加图片到表Ａ的图片列并更改文件名，图片控件绑定到该列
下面是我的代码（自己想当然那样写出来的，不行）
Dim dlg As New OpenFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示")
If MessageBox.Show("是否导入?","请确认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then
Dim pth As String = "\\\\YVX871P39CJIM9B\\CNC生产跟踪\\CNC生产跟踪\\图片"　\'定义图片保存路径
Dim t As Table = e.Form.controls("钢料程序单").Table　\'窗体里的表
Dim name1 As String = t.Current("单号") & t.Current("工件编号") & ".jpg"　\'更改名称的变量
FileSys.RenameFile(dlg.FileName,name1 ) True 　\'更改名称
FileSys.CopyFile(dlg.name1,pth) True　　\'复制到指定文件夹
Tables("钢料程序单").Current("正三轴视图") = pth & name1　　\'将图片写入表
End If
End If
MessageBox.Show("导入成功!","恭喜!")

这个方法不行，请老师教一下，谢谢！

--  作者：有点蓝
--  发布时间：2019/12/26 14:25:00
--

If MessageBox.Show("是否导入?","请确认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then
Dim pth As String = "\\\\YVX871P39CJIM9B\\CNC生产跟踪\\CNC生产跟踪\\图片\\"　\'定义图片保存路径
Dim t As Table = e.Form.controls("钢料程序单").Table　\'窗体里的表
Dim name1 As String = t.Current("单号") & t.Current("工件编号") & ".jpg"　\'更改名称的变量
FileSys.CopyFile(dlg.FileName,pth & name1 ) True　　\'复制到指定文件夹
Tables("钢料程序单").Current("正三轴视图") = pth & name1　　\'将图片写入表
End If

--  作者：禾成
--  发布时间：2019/12/26 17:31:00
--

Dim dlg As New OpenFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示")
If MessageBox.Show("是否导入?","请确认!",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then
Dim pht As String = "\\\\YVX871P39CJIM9B\\CNC生产跟踪\\CNC生产跟踪\\图片\\" \'定义图片保存路径
Dim t As Table = e.Form.controls("钢料程序单").Tables \'这个声明对吗？提示找不到
Dim name1 As String = t.Current("单号") & t.Current("工件编号") & ".jpg" \'更改名称的变量
FileSys.CopyFile(dlg.FileName , pht & name1 ) \'这里是复制和重命名弄一块去了，原来这样也可以
Tables("钢料程序单").Current("正三轴视图") = pht & name1 \'将图片写入表
End If
End If
MessageBox.Show("导入成功!","恭喜!")

此主题相关图片如下：tim截图20191226172513.png

--  作者：有点蓝
--  发布时间：2019/12/26 17:35:00
--
到窗口设计那里看表控件的名称是什么

Dim t As Table = e.Form.controls("控件名称不是表名称").Table

--  作者：禾成
--  发布时间：2019/12/26 20:09:00
--  谢谢！受益良多！

Dim pht As String = "\\\\YVX871P39CJIM9B\\CNC生产跟踪\\CNC生产跟踪\\图片\\" \'定义图片保存路径
  Dim name1 As String = Tables("钢料程序单").Current("单号") & Tables("钢料程序单").Current("工件编号") & ".jpg" \'更改名称的变量
FileSys.CopyFile(dlg.FileName , pht & name1 ) \'这里是复制和重命名弄一块去了，原来这样也可以
Tables("钢料程序单").Current("正三轴视图") = pht & name1 \'将图片写入表

Dim t As Table = e.Form.controls("钢料程序单").Tables \'这个声明其实没必要
上面直接给了表名就可以了，是我想的太复杂了
谢谢老师！