主题：为何在窗口beforeclose里加上时间条件出错，求解！(已联系客服解决)

语句为：

Dim ppsjs As List(of DataRow) = DataTables("比对表").Select("会员名称 ='" & e.Form.Controls("ComboBox1").value & "'")
For Each ppsj As DataRow In ppsjs
    Select Case ppsj("有效性")
        Case "精确"
            Dim pggp As DataRow= DataTables("产品目录").find("产品标识 = '" & ppsj("标准编码") & "'")                           
            Dim yyrkl As Double =  DataTables("会员入库").Compute("sum(转换数量)","标准编码 ='" & ppsj("标准编码") & "' and 会员名称 ='" & e.Form.Controls("ComboBox1").value & "' and 可用性 = 1 and 入库时间 >= #" & pggp("报废时间") & "#")
    End Select
Next

加入时间限制条件就提示下面错误：

此主题相关图片如下：提示错误.jpg

语句的输出：

此主题相关图片如下：语句.jpg

不晓得哪个地方出错，请大家帮看看！

这是必须步骤么？是有值的，时间都查出来了。

Dim ppsjs As List(of DataRow) = DataTables("比对表").Select("会员名称 ='" & e.Form.Controls("ComboBox1").value & "'")
For Each ppsj As DataRow In ppsjs
    Select Case ppsj("有效性")
        Case "精确"
            Dim pggp As DataRow= DataTables("产品目录").find("产品标识 = '" & ppsj("标准编码") & "'")  
            IF pggb IsNot Nothing Then                        
                 Dim yyrkl As Double =  DataTables("会员入库").Compute("sum(转换数量)","标准编码 ='" & ppsj("标准编码") & "' and 会员名称 ='" & e.Form.Controls("ComboBox1").value & "' and 可用性 = 1 and 入库时间 >= #" & pggp("报废时间") & "#")
          End If
    End Select
Next

理由：

http://www.foxtable.com/help/topics/2044.htm