Dim ks As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim js As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim gys As String = "ABC"
Dim Book As New XLS.Book(ProjectPath & "Attachments\入库报表.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet(0,1).value = ""& ks.value &"至"& js.value &"入库明细"
Sheet(3,14).Value = "<[入库日期] >= '" & ks.value & "' And [入库日期] <= '#" & js.value & "#' and [供应商名称] = '#" & gys & "#' >"
Book.Build() '生成细节区
Book.Save(ProjectPath & "Reports\商品入库报表.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Reports\商品入库报表.xls"
Proc.Start()
请问如果我导出指定了两个日期区间，想再加上一个条件这样写是不是不行？
另外，为什么我导出的数据里面 序列号 为什么不是从1开始的呢？
加好友 
发短信
Post By：2013/3/1 12:03:00 [显示全部帖子]
