以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于跨表自动算值代码的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91230)
--  作者：chu0001
--  发布时间：2016/10/4 12:02:00
--  关于跨表自动算值代码的问题
 两个表，库存表，消费表，在库存表有列"库存余额"，消费表有列"消费金额"，当消费金额列输入数值时，库存表的库存余额列>0，消费表的消费金额列正常显示输入的数值，当库存余额<0时，消费金额列能显示库存余额列的数值
--  作者：chu0001
--  发布时间：2016/10/4 12:21:00
--  
 if e.datacol.name="消费金额" then
if e.newvalue=isnot nothing then
dim dr as datarow
dr=datatables（"库存表"）.find（"库存余额="&e.newvalue&"")
if dr<0then
e.datarow（"消费金额"）=dr（"库存余额"）
else e.datarow（"消费金额"）=nothing
end if
endif
endif
--  作者：狐狸爸爸
--  发布时间：2016/10/5 6:54:00
--  
两个表是通过什么对应起来的？ 消费表中的一行，通过什么找出库存表中对应的一行。

建议您看看：
http://www.foxtable.com/webhelp/scr/1451.htm

还有合成表达式：
http://www.foxtable.com/webhelp/scr/1284.htm


还有这个好东西：
[此贴子已经被作者于2016/10/5 7:41:17编辑过]
--  作者：chu0001
--  发布时间：2016/10/5 9:58:00
--  

库存余额＝IsNull([初始金额],0) + IsNull([充值金额],0) - IsNull([消费金额],0)

 

消费金额＝IsNull(Sum(Child(消费表).消费金额),0)

 

 

两个表，库存表，消费表，在库存表有列"库存余额"，消费表有列"消费金额"，当消费金额列输入数值时，库存表的库存余额列>0，消费表的消费金额列正常显示输入的数值，当库存余额<0时，消费金额列能显示库存余额列的数值 或者输不进值，意思表示怅号已欠费，请充费


 if e.datacol.name="消费金额" then
if e.newvalue=isnot nothing then
dim dr as datarow
dr=datatables（"库存表"）.find（"库存余额="&e.newvalue&"")
if dr<0then
e.datarow（"消费金额"）=dr（"库存余额"）
else e.datarow（"消费金额"）=nothing
end if
endif
endif


请老师帮改一下
--  作者：chu0001
--  发布时间：2016/10/5 10:05:00
--  

库存表的库存余额＝IsNull([初始金额],0) + IsNull([充值金额],0) - IsNull([消费金额],0)

 

库存表的消费金额＝IsNull(Sum(Child(消费表).消费金额),0)

 

 

两个表，库存表，消费表，在库存表有列"库存余额"、"消费金额"，消费表有列"消费金额"，当消费表的“消费金额”列输入数值时，库存表的“库存余额”列>0，消费表的“消费金额”列正常显示输入的数值，当“库存余额”<0时，“消费金额”列能显示库存余额列的数值 或者输不进值，意思表示怅号已欠费，请充值
 if e.datacol.name="消费金额" then
if e.newvalue=isnot nothing then
dim dr as datarow
dr=datatables（"库存表"）.find（"库存余额="&e.newvalue&"")
if dr<0then
e.datarow（"消费金额"）=dr（"库存余额"）
else e.datarow（"消费金额"）=nothing
end if
endif
endif


重发一下，请老师帮改一下，
--  作者：狐狸爸爸
--  发布时间：2016/10/5 11:20:00
--  

你并没有回答我在3楼提出的问题：

 

两个表是通过什么对应起来的？ 消费表中的一行，通过什么找出库存表中对应的一行？

 

这个不确定，怎么写代码呢？

 

个人建议你还是看一下视频教程：

http://pan.baidu.com/s/1mhILvwW

 

特别是开发指南中<编程基础><基本类型><事件编程>这三章
--  作者：chu0001
--  发布时间：2016/10/5 14:08:00
--  

好的