专家坐堂-【求助】统计符合条件的表中卷宗册数结果只有1，实际是2，怎么修正呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】统计符合条件的表中卷宗册数结果只有1，实际是2，怎么修正呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108907)

--  作者：李孝春
--  发布时间：2017/10/31 18:40:00
--  【求助】统计符合条件的表中卷宗册数结果只有1，实际是2，怎么修正呢？

Dim a As Integer=Tables("卷宗入库").compute("count(卷宗册数)", "卷宗编号=\'" & d("编号") & "\'")
Dim c As Integer =Tables("扫码录入").Compute("count(卷宗编号)", "登记状态 =\'借出\' and 卷宗编号=\'" & d("编号") & "\'")
Dim c1 As Integer =Tables("扫码录入").Compute("count(卷宗编号)", "登记状态 =\'归还\' and 卷宗编号=\'" & d("编号") & "\'")

MessageBox.Show(a & "-" & c & "-" & c1)

上述代码A只能统计为数字1 怎么修改条件使之统计值为2呢？因为实际卷宗册数是2

[此贴子已经被作者于2017/10/31 18:54:37编辑过]

--  作者：有点甜
--  发布时间：2017/10/31 18:49:00
--

Dim a As Integer=Tables("卷宗入库").compute("count(卷宗册数)", "卷宗编号=\'" & d("编号") & "\'")

--  作者：李孝春
--  发布时间：2017/10/31 18:54:00
--  回复：（有点甜）Dim a As Integer=Tables("卷宗入库"...
有点甜老师得到的值还是1 不是实际卷宗册数 2 哦这个列值目前是2

--  作者：有点甜
--  发布时间：2017/10/31 19:31:00
--

这个？

Dim a As Integer=Tables("卷宗入库").compute("sum(卷宗册数)", "卷宗编号=\'" & d("编号") & "\'")

Dim a As Integer=Tables("卷宗入库").compute("count(卷宗编号)", "卷宗编号=\'" & d("编号") & "\'")