专家坐堂-[求助] 加载指定行的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 加载指定行的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123775)

--  作者：81538475
--  发布时间：2018/8/22 18:15:00
--  [求助] 加载指定行的问题

我想只加载符合下面条件的 drs 的行，应该怎么继续写呢。
Dim SUM As Double
Dim drs As List (of DataRow)

For Each dr As DataRow In DataTables("xmzb").DataRows
sum = DataTables("XMFP").Compute("Sum(当月人天)","[项目名称]= \'" & dr("XMMC").replace("\'", "\'\'") & "\' ")
If sum > dr("APC") Then
drs.Add(dr)
End If
Next

--  作者：有点蓝
--  发布时间：2018/8/22 20:16:00
--
试试

Dim drs As List (of DataRow) = DataTables("xmzb").SQLSelect("APC < (select sum(当月人天) from XMFP where XMFP.项目名称= xmzb.XMMC)")