Dim TB As Table = Tables("SFMX")
Dim DB As Double = Forms("门诊收费").Controls("NumericComboBox1").Value
If Forms("门诊收费").Opened Then
e.form.Controls("NumericComboBox2").Value = Round2(DataTables("SFMX").Compute("Sum(JE)","BRXM='"& TB.Current("BRXM") &"'" And "ZT = False" ),1)
End If
问题出在And "ZT = False"
顺便问一下,对于逻辑列,什么时候用Ture,False;什么时候用1,0;
都搞混了,惭愧
此代码写在按钮里面的,写在哪里更好?
我的想法是当单击时计算
[此贴子已经被作者于2013-2-20 20:12:19编辑过]