以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  条件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49514)
--  作者：散客
--  发布时间：2014/4/19 9:10:00
--  条件
Dim Val1,val2,val3,val4,val5 As Integer
    Val1 =DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 <= #12/31/2013#")
\' And "备案单位 = \'天津公司\' And 借款单位 = \'88公司\'")
    Output.Show(val1)
为什么加入后边的条件就出错？不加就可以呢？ 只用后边的条件也可以？ 组合条件就出错
--  作者：Bin
--  发布时间：2014/4/19 9:17:00
--  
DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 <= #12/31/2013# And "备案单位 = \'天津公司\' And 借款单位 = \'88公司\'")
--  作者：散客
--  发布时间：2014/4/19 9:27:00
--  

组合条件总是报错
--  作者：散客
--  发布时间：2014/4/19 9:30:00
--  

For Each R1 As Row In Tables("汇总表").Rows
    Dim badw As String = R1("备案单位")
    Dim DW As String = R1("单位")
    Dim Val(5) As  Integer
    Tables("融资合同备案表").Filter = ""
    Dim Val1,val2,val3,val4,val5 As Integer
    Val1 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 <= #" & dt0 & "#" And "备案单位 = \'" & BADW & "\' And "借款单位 = \'" & DW & "\'")
    Val2 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 < #" & dt2 & "#")
    Val3 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 >= #" & dt2 & "# And 接收日期 <= #" & dt3 & "#")
    Val4 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 >= #" & dt1 & "# And 接收日期 <= #" & dt3 & "#")
    Val5 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 <= #" & dt3 & "#")
    r1("ncs1") = val1
    r1("qcs1") = val2
    r1("bys1") = val3
    r1("bns1") = val4
    \'r1("qms1") = val5
   

--  作者：Bin
--  发布时间：2014/4/19 9:31:00
--  
DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 <= #" & dt0 & "# And 备案单位 = \'" & BADW & "\' And 借款单位 = \'" & DW & "\'")