主题：报表自动汇总问题

1、

Dim t As Table = Tables("HotelDatabase")
Dim proc As new Process
proc.File = t.current("Email")
proc.start()

2、

Dim dlg As New OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim t As Table = Tables("HotelDatabase")
    Dim pth As String = ProjectPath & "Attachments\"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then '如果文件来自Attachments目录
        t.current("files") = FileSys.GetName(dlg.FileName)
    Else '如果不是
        FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName))
        t.current("files") = FileSys.GetName(dlg.FileName)
    End If
End If