Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用按钮向单元格里增加图片


  共有4258人关注过本帖树形打印复制链接

主题：用按钮向单元格里增加图片
帅哥哟，离线，有人找我吗？
禾成
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1295 威望：0 精华：0 注册：2018/12/12 23:23:00 		用按钮向单元格里增加图片  发帖心情 Post By：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("导入成功!","恭喜!")

这个方法不行，请老师教一下，谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113514 积分：578071 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
禾成
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1295 威望：0 精华：0 注册：2018/12/12 23:23:00 		  发帖心情 Post By：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
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113514 积分：578071 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/26 17:35:00 [只看该作者]

到窗口设计那里看表控件的名称是什么

Dim t As Table = e.Form.controls("控件名称不是表名称").Table
 回到顶部
帅哥哟，离线，有人找我吗？
禾成
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1295 威望：0 精华：0 注册：2018/12/12 23:23:00 		谢谢！受益良多！  发帖心情 Post By：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 '这个声明其实没必要
上面直接给了表名就可以了，是我想的太复杂了
谢谢老师！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询