专家坐堂-[求助]如此求和？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=58532)

--  作者：rophy0952
--  发布时间：2014/10/18 14:26:00
--  [求助]如此求和？
如图，谢谢！

此主题相关图片如下：qq截图20141018142549.png

--  作者：Bin
--  发布时间：2014/10/18 14:50:00
--
and 流水号 = \'" & e.datarow("流水号") & "\'"

--  作者：rophy0952
--  发布时间：2014/10/18 16:02:00
--
如果按照这个模式，在窗口控件中录入代码的话，无法将数据引用出来，不知代码这样写对不对：

For Each r As Row In Tables("打印送货单_送货明细表")
forms("打印送货单").Controls("基膜重量").text = DataTables("送货明细表").compute("sum(基膜净重)","送货单号 = \'"& forms("打印送货").Controls("送货单号").text & "\'and 流水号 = \'"& r("流水号") &"\'")
Next

--  作者：rophy0952
--  发布时间：2014/10/19 9:34:00
--
可以指导一下吗，谢谢！

--  作者：有点甜
--  发布时间：2014/10/19 9:50:00
--
Dim sum As Double = 0
For Each ls As String In DataTables("送货明细表").GetValues("流水号", "送货单号 = \'" & forms("打印送货").Controls("送货单号").text & "\'")
    Dim fdr As DataRow = DataTables("送货明细表").find("sum(基膜净重)","送货单号 = \'"& forms("打印送货").Controls("送货单号").text & "\'and 流水号 = \'" & ls & "\'")
    If fdr IsNot Nothing Then
        sum += fdr("基膜重量")
    End If
Next
forms("打印送货单").Controls("基膜重量").text = sum

--  作者：rophy0952
--  发布时间：2014/10/19 10:04:00
--
结果为0.

此主题相关图片如下：qq截图20141019100328.png

[此贴子已经被作者于2014-10-19 10:07:31编辑过]

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

Dim sum As Double = 0
For Each ls As String In DataTables("送货明细表").GetValues("流水号", "送货单号 = \'" & e.Value & "\'")
    Dim fdr As DataRow = DataTables("送货明细表").find("sum(基膜净重)","送货单号 = \'"& e.value & "\'and 流水号 = \'" & ls & "\'")
    If fdr IsNot Nothing Then
        sum += fdr("基膜重量")
    End If
Next
forms("打印送货单").Controls("基膜重量").text = sum

--  作者：rophy0952
--  发布时间：2014/10/19 10:10:00
--
提示错误：
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.9.22.1
错误所在事件：窗口,打印送货单,送货单号,DataFormat
详细错误信息：
无法找到列送货单号 = \'SH14082501\'and 流水号 = \'A00001B\'。

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

Dim sum As Double = 0
For Each ls As String In DataTables("送货明细表").GetValues("流水号", "送货单号 = \'" & e.Value & "\'")
    Dim fdr As DataRow = DataTables("送货明细表").find("sum(基膜净重)", "送货单号 = \'" & e.value & "\' and 流水号 = \'" & ls & "\'")
    If fdr IsNot Nothing Then
        sum += fdr("基膜重量")
    End If
Next
forms("打印送货单").Controls("基膜重量").text = sum

--  作者：rophy0952
--  发布时间：2014/10/19 10:14:00
--
还是提示错误：
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.9.22.1
错误所在事件：窗口,打印送货单,送货单号,DataFormat
详细错误信息：
无法找到列送货单号 = \'SH14082501\'and 流水号 = \'A00001B\'。