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

思路如下：

 

表“发货明细表”的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

Dim sum4 As Double = 0

Dim i As Integer = -1

For Each dr As DataRow In vrs
   
    sum4 += dr("数量")
   
    i += 1
   
    If sum4 >= sum3 Then
       
        Exit For
       
    End If
Next

msgbox(i)

红色部分有点乱：

 

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

 

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

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

先查找 合同一览表中 的行；然后根据合同编号 查询合同明细表的所有行啊

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

 

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

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

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

数据库发上来。

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

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

 

 

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