| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求用按钮 上传文件的代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17252) |
| -- 作者：dark272710 -- 发布时间：2012/3/8 10:31:00 -- 求用按钮 上传文件的代码 按钮的代码。。不知道怎么写 |
| -- 作者：狐狸爸爸 -- 发布时间：2012/3/8 10:41:00 -- Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 dim r as row = tables("xxx").Current if r.isnull("yyy") Then r("yyy") = dlg.FileName else r("yyy") = r("yyy") & vbcr & dlg.FileName end if End If |
| -- 作者：dark272710 -- 发布时间：2012/3/8 13:15:00 -- 这个不行啊。。。没有触发上传。。。就是把路径记录了，打不开 |
| -- 作者：czy -- 发布时间：2012/3/8 15:00:00 -- 那就加个子CopyFile将文件复制过去就行了。 |
| -- 作者：dark272710 -- 发布时间：2012/3/8 15:49:00 -- 还是有问题：FileName获取的是路径，我怎么获取文件名呢。。。 Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog Dim file As String = Tables("工程项目").Current("工程实施名称") If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim r As Row = Tables("工程项目").Current If r.isnull("工程附件") Then r("工程附件") = dlg.FileName \'这个应该改成文件名而不是路径 FileSys.CopyFile(dlg.FileName,"\\\\192.168.1.7\\工程文件$\\" & file) \'这里后面要加文件名！ Else r("工程附件") = r("工程附件") & vbcr & dlg.FileName FileSys.CopyFile(dlg.FileName,"\\\\192.168.1.7\\工程文件$\\" & file) End If End If [此贴子已经被作者于2012-3-8 15:49:44编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2012/3/8 15:54:00 -- http://www.foxtable.com/help/topics/1406.htm
|
| -- 作者：dark272710 -- 发布时间：2012/3/8 16:16:00 -- 疏忽了~~~搞定，谢谢狐爸~~~ 哈哈哈哈哈
|