主题：[求助]变更内容后，自动变更颜色！

 加入一列，记录拷贝自哪一行，然后根据这个单元格的数据，查找比较，设置颜色。

 

 http://www.foxtable.com/help/topics/0656.htm

 

 修改系统按钮，或者自己做一个按钮，在拷贝之前，记录当前行是哪一行，拷贝完成以后，给那一列赋值。

 

    

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

点击浏览该文件:问题.foxdb

 顺序号这样添加

 

Dim sts() As  String  = {"客户代号","客户订单号","订货日期","交货日期"}
For Each st As String In sts
    If Tables("订单主表").Current.isnull(st) = True Then
        MessageBox.Show("请将带 '* '必填字段填写完整!","提醒")
        Return
    End If
Next

Dim count As Integer = DataTables("订单明细表").Compute("客户订单号 like '" & Tables("订单主表").Current("客户订单号") & "-%'")

Dim r As Row = Tables("订单明细表").AddNew
For Each st As String In sts
    r(st) = Tables("订单主表").Current(st)
Next

r("客户订单号") = Tables("订单主表").Current("客户订单号") & "-" & (count+1)

计算金额，参考

 

Tables("订单主表").Current("总金额") = DataTables("订单明细表").SQLCompute("sum(金额)","客户订单号 like '" & Tables("订单主表").Current("客户订单号") & "-%' and 作废 = false")

 

只要记录一个唯一的记号即可，你可以组合成一个唯一的字符串，比如 订单号|规格 组成

 报什么错？

 我写给你的代码根本不会这样的啊。

这段先删除，然后，肯定是没有查找到对应的数据啊

 

这句代码