主题：[求助]请教一下Excel报表的条件语句

Dim Book As New XLS.Book(ProjectPath & "Attachments\1.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\1.xls"

If e.Form.Controls("TextBox1").Text = Nothing Then

    MessageBox.Show("No Print Info !")

Else

    Dim Sheet As XLS.Sheet = Book.Sheets(0)

    Sheet(2,5).Value = "<EntDate = # " & e.Form.Controls("TextBox1").Text & "#>" '写入打印条件

    Book.Build() '生成报表

    Book.Save(fl)

    Dim Proc As New Process

    Proc.File = fl

    Proc.Start()

End If