以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]对查找的行进行计数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140694)

--  作者:bashanren
--  发布时间:2019/9/11 15:58:00
--  [求助]对查找的行进行计数
各位大师下午好!
下面代码,是想在"DailySW"表中对"SYBH"和"CompleteQK"这两列进行查找,然后计数查找到地行数cn,并将cn填入到"FinishXH"列,请老师帮忙,谢谢!!
If e.DataRow("Write") = True Then
Dim dr As DataRow = DataTables("DailySW").find("SYBH=\'" & e.DataRow("SYBH") & "\' And CompleteQK =\'" &  e.DataRow("CompleteQK") & "\'")
If dr IsNot Nothing Then
Dim cn As String = count(dr)
e.DataRow("FinishXH") = cn
End If
End If

--  作者:有点蓝
--  发布时间:2019/9/11 16:13:00
--  
参考:http://www.foxtable.com/webhelp/topics/0393.htm

e.DataRow("FinishXH") = DataTables("DailySW").Compute("count(_Identify)", "SYBH=\'" & e.DataRow("SYBH") & "\' And CompleteQK =\'" &  e.DataRow("CompleteQK") & "\'")