- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 表的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=62963)
-- 发布时间：2015/1/10 23:30:00
-- 表的问题
如图
此主题相关图片如下：无标题.png
此主题相关图片如下：无题.png
代码如下
-- 发布时间：2015/1/11 10:19:00
--
试试
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
-- 发布时间：2015/1/11 11:05:00
--
还有问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2015/1/11 11:07:00
--
感觉是单凭合同号判断的问题
-- 发布时间：2015/1/11 11:08:00
--
这是合同明细表，如张三的合同号是001，占两行就有问题
-- 发布时间：2015/1/11 11:14:00
--
有点甜，在吗？我的想法是表B是合同明细表，一个合同号下有很多行，而表A作为应收帐，如表B将合同登记完成后，在表A中自动将相应的合同作为应收帐登记，每笔合同占一行。如张三的合同号是001，有三样东西，苹果1元，香蕉2元，桔子3元，那么我就登记三行，每行的合同号是一样的。但在应收帐中，张三的明细无论多少行，他的合同总金额是一个数字，就是苹果+香蕉+桔子=6元，
-- 发布时间：2015/1/11 11:15:00
--
就是张三，合同号是001，应收6元
-- 发布时间：2015/1/11 12:25:00
--
有点甜，在吗？
-- 发布时间：2015/1/11 12:30:00
--
最基础的，你还不会吗？修改数量、单价，肯定要重新计算的啊。
例子 http://www.foxtable.com/help/topics/1472.htm