还是有问题：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编辑过]
加好友 
发短信
Post By：2012/3/8 10:31:00 [显示全部帖子]
