主题：模板管理窗口里

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:模板窗口.rar

模板管理窗口里有两个错误提示,请老师纠正

一楼的例子发错了

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:病例.rar

Dim dlg As New OpenFileDialog
dlg.Filter = "word模板|*.doc"
If dlg.ShowDialog =DialogResult.OK Then
    Dim fl As String = dlg.FileName
    Dim r As Row = Tables("部门管理.模板管理").AddNew()
    r("模板名称") = FileSys.GetName(fl) '写入文件名
    r.Save '必须先保存
    FileSys.CopyFile(fl, ProjectPath & "Attachments/" & r("模板名称"))
End If

 

-----------

 

If Tables("部门管理.模板管理").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("部门管理.模板管理").Current.DataRow
Dim fl As String =  ProjectPath & "Attachments/" & dr("模板名称")

Dim Proc As New Process '打开文件
Proc.File = fl
Proc.Start()

麻烦你提供删除命令

Dim r As Row = Tables("部门管理.模板管理").Current()

FileSys.DeleteFile(ProjectPath & "Attachments/" & r("模板名称"), 2, 2)
r.delete