- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 为何在窗口beforeclose里加上时间条件出错，求解！(已联系客服解决) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40578)
-- 发布时间：2013/9/24 8:07:00
-- 为何在窗口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
不晓得哪个地方出错，请大家帮看看！
-- 发布时间：2013/9/24 8:14:00
--
未判断pggp是否存在
-- 发布时间：2013/9/24 8:24:00
--
这是必须步骤么？是有值的，时间都查出来了。
-- 发布时间：2013/9/24 8:27:00
--
你这不是循环么?有一行查出来而已,不代表所有行都查出来了啊. 判断是否为空是必须的.
-- 发布时间：2013/9/24 8:35:00
--
加了判断，还是有同样的问题，查看了测试数据，里面全部有时间的。
-- 发布时间：2013/9/24 8:36:00
--
上例子.
-- 发布时间：2013/9/24 8:37:00
--
或者你自行使用这个方法
-- 发布时间：2013/9/24 8:44:00
--
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