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

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"