以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] DateTimePicker 筛选导出问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69548)
--  作者：wangyinming
--  发布时间：2015/6/7 2:47:00
--  [求助] DateTimePicker 筛选导出问题
错误：
.NET Framework 版本：2.0.50727.7905
Foxtable 版本：2014.11.11.1
错误所在事件：
详细错误信息：
该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字。


我写的代码：

Dim gx As WinForm.ComboBox = e.Form.Controls("工序")
Dim filter As String = "1=1"

If gx.Text > "" Then
    filter &= " and 工程 = \'" & gx.Text & "\'"
End If
With e.Form.Controls("开始日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "作业日期 >= #" & .Value & "#"
    End If
End With

With e.Form.Controls("结束日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "作业日期 <= #" & .Value & "#"
    End If
End With


Tables("检查").Filter = filter

Dim Book As New  XLS.Book(ProjectPath &  "Attachments\\报表1.xls")
Dim fl As  String = ProjectPath  &  "Reports\\报表1.xls"       （可以自定义保存地址吗？）
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,9).Value = "<" & Tables("检查").Filter & ">" \'写入打印条件
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process
Proc.File = fl
Proc.Start()

Syscmd.Table.ToggleSortAndFilter()



请各位看看有问题吗？