以文本方式查看主题

-  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=12935)

--  作者:kevin11
--  发布时间:2011/9/21 11:47:00
--  [求助]求助。。设计项目时遇到瓶颈
请教各位专家: 附件中表A是手工输入的合同编号及合同金额,表B是对应合同的付款明细。 我想设置一个代码,在输入表B的付款金额列的数值时,自动判断该合同的累计付款金额是否已超过合同金额,如果超过则限制输入并弹出警告窗口。 我已经研究好几天都没结果。。实在着急,请各位帮帮忙,万分感谢!!
--  作者:kevin11
--  发布时间:2011/9/21 11:48:00
--  
补充附件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:程兴刚
--  发布时间:2011/9/21 12:03:00
--  
这是很简单的问题,采用关联表即可实现!
--  作者:kevin11
--  发布时间:2011/9/21 12:08:00
--  
请问能不能具体一点呢,我刚刚入门没多久,感谢了,如果可能能不能在将我的附件编辑后发给我学习一下,谢谢了!!
--  作者:狐狸爸爸
--  发布时间:2011/9/21 12:22:00
--  

呵呵,看这个:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:kevin11
--  发布时间:2011/9/21 12:51:00
--  
请教狐爸爸,我想实现判断累计付款超过合同金额后取消录入的值,在datacolchanged代码中加了一个e.Cancel = True,具体如下,为何弹出对话框点确定后,输入的值依然存在? Select Case e.DataCol.name Case "付款金额" Dim pr As DataRow = e.DataRow.GetParentRow("表A") If pr("付款金额") > pr("合同金额") Then messagebox.show("付款金额超过合同金额") e.Cancel = True End If End Select
--  作者:狐狸爸爸
--  发布时间:2011/9/21 13:56:00
--  [求助] 请问计算公式怎么做?如图

DataColChanged事件Cancel是无效的,你要取消修改可以:

 

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:kevin11
--  发布时间:2011/9/21 14:21:00
--  
太感谢了。。伟大的狐爸爸~~~狐表很强大,值得深入学习。。。。