以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表属性  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51587)
--  作者：jswjyjf
--  发布时间：2014/5/29 12:18:00
--  表属性
我在一表中的

DataColChanged

事件中 建立了 如下代码

If e.DataCol.Name = "数量" Or e.DataCol.Name = "单价"  Then \'如果更改的数量列或单价列
        \'否则从身份证号码列中提取出生日期
        e.DataRow("金额") =e.DataRow("数量")*e.DataRow("单价")
Dim Amount As Double
Amount=Tables("销售单_table1").Compute("Sum(金额)")
Forms("销售单").Controls("Label8").text=cumoney(Amount)+"   " & Amount
End If

 

 

发现以后单独利用这个表时 ，会提示这个副本销售单_table1 没有，这样一来 ，这个销售表 好像专门为这个副本服务了

 如何避免这种情况
--  作者：E_Fox
--  发布时间：2014/5/29 12:39:00
--  
用datatable  不用 table
http://www.foxtable.com/help/topics/0363.htm
--  作者：jspta
--  发布时间：2014/5/29 13:22:00
--  
窗口关闭了这个表就没有了，当然引用不到了
--  作者：jswjyjf
--  发布时间：2014/5/29 13:34:00
--  
窗口中的文本框的值是窗口中的某个表中某个数字字段的合计数，当表中的数据 发生变化时，这个文本框值也要相应变化 ，如何设计
--  作者：有点甜
--  发布时间：2014/5/29 14:19:00
--  

 加一个判断

 

If e.DataCol.Name = "数量" Or e.DataCol.Name = "单价"  Then \'如果更改的数量列或单价列
    \'否则从身份证号码列中提取出生日期
    e.DataRow("金额") =e.DataRow("数量")*e.DataRow("单价")
    If Forms("销售单").Opened Then
        Dim Amount As Double
        Amount=Tables("销售单_table1").Compute("Sum(金额)")
        Forms("销售单").Controls("Label8").text=cumoney(Amount)+"   " & Amount
    End If
End If
--  作者：Bin
--  发布时间：2014/5/29 14:19:00
--  
If e.DataCol.Name = "数量" Or e.DataCol.Name = "单价"  Then \'如果更改的数量列或单价列
        \'否则从身份证号码列中提取出生日期
        e.DataRow("金额") =e.DataRow("数量")*e.DataRow("单价")
Dim Amount As Double
if Forms("销售单").Opened then
Amount=Tables("销售单_table1").Compute("Sum(金额)")
Forms("销售单").Controls("Label8").text=cumoney(Amount)+"   " & Amount
end if
End If