主题：对采用SQL数据源采用动态加载数据时统计

 

我的狐表采用SQL作为外部数据源，并采用动态加载部份数据，现在想在存货档案表中对销售收款统计表里作统计，即统计与当前行商品名称（存货档案）相同名称合同数量，输入以下代码时一直提示错误，请各位大师帮忙看下，还望赐教。因为采用SQL外部数据源，不知如何上传实例（无法链接到我的电脑），只上传个内部数据源的狐表，参考其数据结构。

For Each dr As DataRow In DataTables("存货档案").DataRows

Dim cmd As sqlcommand

cmd.c

cmd.commandtext = "select sum("合同数量") from {销售收款统计表} where 商品名称 = "'" & e.Daterows("存货名称") & "'"

dt = cmd.exccutereader

dr("未发货订单数量") = dt

Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:上传狐表.zip

大师能否帮我把 "select sum(合同数量) from {销售收款统计表} where 商品名称 = '" & e.Daterows("存货名称") & "'"这句正确的写下，我把 '" & e.Daterows("存货名称") & "'"里第一个双引号去掉，后面变成灰色（注释语句），还是显示错误，谢谢。

 

 

  大师帮忙看下为什么dr("未发货订单数量") 统计不出数据？

For Each dr As DataRow In DataTables("存货档案").DataRows

    Dim cmd As sqlcommand

    cmd.c

    cmd.commandtext = "select sum(合同数量) from {销售收款统计表} where 商品名称 = "'" & e.Daterows("存货名称") & "'"

    Dim dt As Double

    dt = cmd.ExecuteScalar

    dr("未发货订单数量") = dt

Next

 大师帮忙看下为什么dr("未发货订单数量") 统计不出数据？

 

For Each dr As DataRow In DataTables("存货档案").DataRows

    Dim cmd As sqlcommand

    cmd.c

    cmd.commandtext = "select sum(合同数量) from {销售收款统计表} where 商品名称 = "'" & e.Daterows("存货名称") & "'"

    Dim dt As Double

    dt = cmd.ExecuteScalar

    dr("未发货订单数量") = dt

Next

5楼刚才复制错误代码，但是按大师代码

后 '" & e.Daterows("存货名称") & "'"部份会变成灰色，这在帮助文件中的代码复制过来也是这样，不知是何原因？

 奇怪cmd.connectionname = "销售收款统计表" 上传上去怎么变成cmd.c

 

10楼所言极是，数据源定义错误，修正后提示错误为“编译错误，daterows不是datacolerventargs的成员，错误代码： cmd.commandtext = "select sum(合同数量) from {销售收款统计表} where 商品名称 = '" & e.Daterows("存货名称") & "'"不知是何原因？

 

For Each dr As DataRow In DataTables("存货档案").DataRows

    Dim cmd As sqlcommand

    cmd.c

    cmd.commandtext = "select sum(合同数量) from {销售收款统计表} where 商品名称 = '" & e.Daterows("存货名称") & "'"

    Dim dt As Double

    dt = cmd.ExecuteScalar

    dr("未发货订单数量") = dt

Next

多谢逛逛兄指点，修正后运行提示错误为“调用的目标发生了异常”，分析极有可能仍是这句cmd.commandtext = "select sum(合同数量) from {销售收款统计表} where 商品名称 = '" & dr("存货名称") & "'"代码造成的，这又是什么错误？

 

太感谢两位大师指点，终于测试成功。