我有几个列如下:
合同总额 累计已支付 本次支付 是否付清
(Double) (Double) (Double) (Boolean)
其中:合同总额 是从其它表根据合同编号筛选得来
累计已支付 是在本表根据合同编号筛选后SUM得来
本次支付 是在录入窗口中直接输
希望在录入窗口中写入两个表达式
其一:容错表达式 IIF(累计已支付+本次支付>合同总额,return,.....)
其二:自动判断是否付清 如 累计已支付+本次支付=合同总额 ,则勾选 是否付清列 这段代码不会写
代码如下:代码出错提示是string转换为double无效
Dim bczf As String = "'"&forms("支付台账录入").controls("NumericComboBox1").text &"'"
Dim fyze As String = "'"&forms("支付台账录入").controls("TextBox2").text &"'"
Dim flt As String ="合同or费用编号 = '"&forms("支付台账录入").controls("DropBox3").text &"'And 支付日期 < '# " & forms("支付台账录入").controls("DateTimePicker1").text & " #'"
Dim ljzf As String = DataTables("支付台账").compute("sum(本次支付金额)",flt)
If CDbl(bczf) + CDbl(ljzf) > CDbl(fyze) Then
Return
Else
Tables("支付台账").Current("累计已支付") = ljzf 'DataTables("支付台账").compute("sum(本次支付金额)",flt)
End If
请教