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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单元格双击输入图片

共有2129人关注过本帖树形打印复制链接主题：单元格双击输入图片

蓝蚂蚁

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：672 积分：7879 威望：0 精华：0 注册：2016/6/11 11:10:00

单元格双击输入图片 发帖心情

Post By：2018/10/11 11:21:00 [只看该作者]

在表【患者登记表】中的BeforeAttachFile中已有如下代码：

Dim dr As DataRow = e.DataRow

If dr.IsNull("患者编号") Then

MessageBox.Show("患者编号为空，请输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

Else

e.FileName = dr("患者编号") & ".jpg"

End If

现想在窗口中双击右表中的合格证列，就把左表当前行的文件名称所对应的图片输入合格证列中,同时把合格证列中的名称改成患者编号，请问老师合格证列中双击的代码如何写？

此主题相关图片如下：image 2.jpg

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/11 11:38:00 [只看该作者]

doubleclick事件

Dim t1 As Table = Tables("表A")
Dim t2 As Table = e.Table
Dim r As Row = t1.current
FileSys.CopyFile("d:\test\" & r("文件名称"), ProjectPath & t2.current("患者编号") & ".jpg", True)
t2.current("合格证") = t2.current("患者编号") & ".jpg"

下一主题 >> << 上一主题

主题：单元格双击输入图片