以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]多条件代码错误！求教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28861)
--  作者：红颜
--  发布时间：2013/2/20 20:08:00
--  [求助]多条件代码错误！求教

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编辑过]
--  作者：czy
--  发布时间：2013/2/20 20:26:00
--  
Dim s As String = Tables("SFMX").Current("BRXM")
If Forms("门诊收费").Opened Then
    e.form.Controls("NumericComboBox2").Value = Round2(DataTables("SFMX").Compute("Sum(JE)","BRXM = \'" & s & "\' And ZT = False" ),1)
End If
--  作者：程兴刚
--  发布时间：2013/2/20 20:28:00
--  

If Forms("门诊收费").Opened Then

    Dim TB As Table = Tables("SFMX")

    if TB.Current isnot nothing
        Dim DB As Double = Forms("门诊收费").Controls("NumericComboBox1").Value
        e.form.Controls("NumericComboBox2").Value = Round2(DataTables("SFMX").Compute("Sum(JE)","BRXM=\'" & TB.Current("BRXM") & "\' And ZT = False" ),1)

    end if
End If
--  作者：czy
--  发布时间：2013/2/20 20:28:00
--  

加载到项目后都应该用true和false。

如果参与后台数据库的计算，如SQL数据源，则用0和1
--  作者：红颜
--  发布时间：2013/2/20 21:04:00
--  

谢谢各位版主赐教