Dim jt As String =e.Form.Controls("ComboBox1").Value '机台
Dim chepeople As String =e.Form.Controls("ComboBox2").Value'检查员
Dim sd As Date = e.Form.Controls("DateTimePicker1").Value
Dim ed As Date = e.Form.Controls("DateTimePicker2").Value
Dim Book As New XLS.Book(ProjectPath & "Attachments\出筒部统计表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\出筒部统计表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'Sheet(3,19).Value = "<检查时间 >= # " & sd & "# And 检查时间 <= #" & ed & "# And 机台 = '" & jt & "'>" '写入打印条件
'Sheet(3,19).Value = "< 机台 = '" & jt & "'>" '写入打印条件
'Sheet(3,19).Value = "<检查时间 >= # " & sd & "# And 检查时间 <= #" & ed & "# And 机台 = '" & jt & "'>" '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
输入任意条件都可以查询到相关数据，代码要怎样写？比如说：有三个选择框（时间，机台，检查员），选择其中一个选择框或者两个，三个都可以选择相关数据要怎样写代码？（举个例子：我选择时间和检查员，不用选择机台，就可以带出相关数据，要怎样操作？）
加好友 
发短信
Post By：2015/7/6 15:37:00 [只看该作者]
