主题：[求助]一段代码，谢谢！

思路如下：

 

表“发货明细表”的DataColChanged事件：

If e.DataCol.Name = "数量" Then

 

找出该行记录中的客户的"合同细节表"中的该产品名称的所有记录

 

 

统计其发货明细表中的发货总量 S1

统计其合同细节表中的合同总量 S2

定义S3=S2-S1

 

如S3>0

 

按时间降序累加合同细节表中的该产品数量 S4

 

当S4>=S3时

 

则找出合同细节表中的这几条合同编号，并根据合同编号找出合同一览表中的相关记录，并将相关记录的“发货完毕”赋值为“否”

 

 

 

If e.DataCol.Name = "数量" Then
    Dim Sum1 As Double
    Dim Sum2 As Double
    Dim Sum3 As Double
    Sum1 = DataTables("发货明细表").Compute("Sum(数量)", "客户名称='" & e.DataRow("客户名称") & "'and 产品名称= '" & e.DataRow("产品名称") & "'And 规格或牌号='" & e.DataRow("规格或牌号") & "'")
    Sum2 = DataTables("合同明细表").Compute("Sum(数量)", "客户名称='" & e.DataRow("客户名称") & "'and 产品名称= '" & e.DataRow("产品名称") & "'And 规格牌号='" & e.DataRow("规格或牌号") & "'")
    Sum3 = Sum2 -Sum1
    If Sum3>0 Then
    Dim vrs As List(Of DataRow)
    vrs = DataTables("合同明细表").Select("[客户名称]='" & e.DataRow("客户名称") & "'","合同日期 DESC")'目的:找出该客户的该规格产品的所有行(合同明细表与合同一览表有"合同编号"关联,)
    Dim filter As String
    Dim trs As List(Of DataRow)
    filter =" 合同编号= '" & vr("合同编号") & "'"

    trs = DataTables("合同一览表").Select(filter)  '找到vrs 对应的合同一览表中的合同记录
    For Each tr As DataRow In trs
         tr("发货完成")="否"

End If

红色部分有点乱：

 

目的：从表“发货明细表”中的客户名称及产品名称及规格牌号来找到合同一览表中该客户改产品该规格的记录

 

因为合同明细表中没有客户名称，合同明细表是合同一览表的字表

红袍兄不要按照我前面的代码写，因为有些语句肯定是有问题的

表“发货明细表”的DataColChanged事件

 

被注释的代码部分 就是想要的部分

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

点击浏览该文件:项目五_副本.foxdb

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

点击浏览该文件:contract database.rar

 

 

最终目的：通过发货登记时，实时判断合同一览表中的合同是否发货完成

数据库中几乎没有数据，实际工作中，肯定是不断的统计比较的“数量”的

红袍兄：

 

sum4 += sum2

这句是什么意思？

为何要这样写呢？

 

直接用S1-S2不行吗？

 

另外我好像少了一个数据，即：“历史明细表”中该客户的该型号产品的结余数量，应该也要在加在S2中，即：累加完合同中的数量后再加上历史结余的数量（S5），减去已经发货的数量，那么差值大于0的话，执行剩余代码。

 

 

上述代码，减数和被减数是不是搞反了啊？

 Sum1 = DataTables("发货明细表").Compute("Sum(数量)", "客户名称='" & e.DataRow("客户名称") & "'and 产品名称= '" & e.DataRow("产品名称") & "'And 规格或牌号='" & e.DataRow("规格或牌号") & "'")
        Sum2 = DataTables("合同明细表").Compute("Sum(数量)", "合同编号='" & ht_dr("合同编号") & "'and 产品名称= '" & e.DataRow("产品名称") & "'And 规格牌号='" & e.DataRow("规格或牌号") & "'")
        sum4 += sum2
        Sum3 = Sum1 -Sum4

 

红袍兄：您能解释一下这段的逻辑吗？

我似乎有点看不明白