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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  至少一个参数没有被指定  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129179)

--  作者：cyrollin
--  发布时间：2018/12/23 13:45:00
--  至少一个参数没有被指定

For Each dr As DataRow In DataTables("表A").Select("已收款 Is null")
Dim dt As Date = dr("服务日期")
Dim dtt As Date = dt.adddays(-1)
Dim dc As String = dr("客户编号")
dr("服务次数") = DataTables("表B").sqlcompute("count(客户编号)", "服务日期 > #" & dtt & "# And 客户编号 = dc")
Next

遍历已收款列为空值的所有行，并统计这些行在表B里面的服务次数
错误提示：至少一个参数没有被指定

--  作者：有点甜
--  发布时间：2018/12/23 16:02:00
--

改成

dr("服务次数") = DataTables("表B").sqlcompute("count(客户编号)", "服务日期 > #" & dtt & "# And 客户编号 = \'" & dc & "\'")

--  作者：cyrollin
--  发布时间：2018/12/24 15:40:00
--
改了，现在是这种错误提示：

标准表达式中数据类型不匹配。

--  作者：有点甜
--  发布时间：2018/12/24 15:44:00
--

试试改成

dr("服务次数") = DataTables("表B").sqlcompute("count(客户编号)", "服务日期 > #" & dtt & "# And 客户编号 = " & dc )

--  作者：cyrollin
--  发布时间：2018/12/24 16:17:00
--
搞定，甜，您怎么这么能干啊。