- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 单元格双击输入图片 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125984)
-- 发布时间：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
-- 发布时间：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"