表的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如图

此主题相关图片如下：无标题.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 '没找到就登帐

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

Else '否则提出警告并返回

MessageBox.Show("此合同已登帐!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Information)

Return

End If

按理表A中借方应为表B中的金额，现在图中画圈的地方不对，请指教

还有问题

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

请测试

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

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

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

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

有点甜，在吗？

主题：表的问题