主题：表属性

我在一表中的

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 没有，这样一来 ，这个销售表 好像专门为这个副本服务了

 如何避免这种情况

用datatable  不用 table

窗口关闭了这个表就没有了，当然引用不到了

窗口中的文本框的值是窗口中的某个表中某个数字字段的合计数，当表中的数据 发生变化时，这个文本框值也要相应变化 ，如何设计

 加一个判断

 

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

If e.DataCol.Name = "数量" Or e.DataCol.Name = "单价"  Then '如果更改的数量列或单价列
        '否则从身份证号码列中提取出生日期
        e.DataRow("金额") =e.DataRow("数量")*e.DataRow("单价")
Dim Amount As Double