- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用按钮在多文件列加入文件的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70523)
-- 发布时间：2015/6/23 20:10:00
-- 用按钮在多文件列加入文件的问题
用按钮在多文件列加入文件的问题，首次打开项目，按钮无效。打开窗口管理，再打开该窗口，按钮却有效了。
有图有实例，求帮助;
此主题相关图片如下：qq截图20150623200402.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目17.zip |
-- 发布时间：2015/6/23 20:16:00
--
Dim r As Row = Tables("表A").Current
Dim pth As String = ProjectPath & "Attachments\\"
Dim ext As String
Dim luj As String=ProjectPath & "Capture.jpg" \'获取路径
ext = luj.SubString(luj.LastIndexof(".") + 1)
Dim name As String=Format(Date.now, "D") & "_" & Date.now.hour & "时" & Date.now.Minute & "分" & Date.now.Second & "秒" & e.Sender.name & "." & ext
FileSys.CopyFile(luj, pth & FileSys.GetName(Name),True)
If r.IsNull("加入图片") Then
r("加入图片") = FileSys.GetName(Name)
Else
r("加入图片") &= vbcrlf & FileSys.GetName(Name)
End If