条件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有4216人关注过本帖树形打印复制链接主题：条件

散客

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00

条件

Post By：2014/4/19 0:05:00 [显示全部帖子]

Dim Val1,val2,val3,val4,val5 As Integer
Val1 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 <= #" & dt0 & "#" And "备案单位 = Tables("汇总表").rows("备案单位")" And "借款单位= Tables("汇总表").rows("单位")")
Val2 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 < #" & dt2 & "#")

这个在时间段定义是对的，但到其他字段条件就不对了？？

是为了按当前表当前行的内容，统计另一张表内容相同的（比如单位相同但不同时段的相关统计）

可能当前表不对？那如何表述另一张表的列的数据内容呢，下面这段我自己都感觉不对

"备案单位 = Tables("汇总表").rows("备案单位")" And "借款单位= Tables("汇总表").rows("单位")")
提示：应为，“）”或有效的表达式继续符

散客

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00

Post By：2014/4/19 0:06:00 [显示全部帖子]

For Each R1 As Row In Tables("汇总表").Rows
Dim Val(5) As Integer
Tables("融资合同备案表").Filter = ""
Dim Val1,val2,val3,val4,val5 As Integer
Val1 = DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 <= #" & dt0 & "#" And "备案单位 = R1("备案单位")" And "借款单位 = R1("单位")")
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

这样是同样的提示

散客

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00

Post By：2014/4/19 0:23: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

NEXT

这样还不行还是一样错误

散客

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00

Post By：2014/4/19 0:55:00 [显示全部帖子]

.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.3.8.1
错误所在事件：窗口,综合查询,生成报表,Click
详细错误信息：
从字符串“备案单位 = '天津*****有限公司'”到类型“Long”的转换无效。
输入字符串的格式不正确。

[此贴子已经被作者于2014-4-19 0:59:39编辑过]

散客

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00

Post By：2014/4/19 0:56:00 [显示全部帖子]

又出新错郁闷

散客

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：160 积分：1637 威望：0 精华：0 注册：2013/11/15 16:23:00

Post By：2014/4/19 8:22:00 [显示全部帖子]

Dim Val1,val2,val3,val4,val5 As Integer
Val1 =DataTables("融资合同备案表").Compute("count(备案编号)", "接收日期 <= #12/31/2013#")
' And "备案单位 = '天津公司' And 借款单位 = '88公司'")
Output.Show(val1)
为什么加入后边的条件就出错？奇怪只用后边的条件也可以？不加就可以呢？

[此贴子已经被作者于2014-4-19 8:27:46编辑过]

下一主题 >> << 上一主题

主题：条件