1、可以这样写
Dim wjz As Integer = DataTables("患者信息").sqlCompute("Sum(IIF(是否结账 = True,1,0)")
2、可以改成
Dim wjz As Integer = DataTables("患者信息").Compute("count(是否结账)", "是否结账 = true")