主题：表的问题

如图
此主题相关图片如下：无标题.png

此主题相关图片如下：无题.png

代码如下

试试

 

If e.DataCol.Name = "合同号" AndAlso e.DataRow("合同号") IsNot Nothing Then  '如果列名是合同号且合同号非空,即发现新增合同
    Dim cz As DataRow  '在应收帐表中查找与所选合同号一致的行
    cz= DataTables("表A").SQLFind("[单据号] = '" & e.DataRow("合同号") & "'")
    If cz Is Nothing '没找到就登帐
        e.DataRow.Save
        Dim nma() As String = {"合同号","负责人","客户"} '合同数据来源列
        Dim nmb() As String = {"单据号","负责人","客户"} '应收账表数据接收列
        Dim t As Double = DataTables("表B").SQLCompute("sum(数量*单价)","合同号='" & e.NewValue & " ' ")
        Dim dr As DataRow = DataTables("表A").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
            dr("借方")= t
        Next
        dr.Save
    Else  '否则提出警告并返回
        MessageBox.Show("此合同已登帐!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Return
    End If
End If

还有问题

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

点击浏览该文件:管理项目1.foxdb

感觉是单凭合同号判断的问题

这是合同明细表，如张三的合同号是001，占两行就有问题

有点甜，在吗？我的想法是表B是合同明细表，一个合同号下有很多行，而表A作为应收帐，如表B将合同登记完成后，在表A中自动将相应的合同作为应收帐登记，每笔合同占一行。如张三的合同号是001，有三样东西，苹果1元，香蕉2元，桔子3元，那么我就登记三行，每行的合同号是一样的。但在应收帐中，张三的明细无论多少行，他的合同总金额是一个数字，就是苹果+香蕉+桔子=6元，

就是张三，合同号是001，应收6元

有点甜，在吗？

 最基础的，你还不会吗？修改数量、单价，肯定要重新计算的啊。

 

 例子 http://www.foxtable.com/help/topics/1472.htm