AfterCheckRow事件
Dim cgfph As
WinForm.TextBox = e.Form.Controls("采购fa piao号")
Dim tj1 As String
= " _identify > 0 "
If cgfph.Text
<> "" Then
tj1 = tj1 & " and 采购fa piao号 like
'%" & cgfph.Text & "%'"
End If
DataTables("销售明细表").ReplaceFor("采购fa piao号",
e.form.controls("采购fa piao号").text)
‘问题1 筛选表达式“666”的计算结果不是 Boolean 值项。
‘问题2如保只能更改选定复选框内容
e.form.controls("到piao金额").text = format(DataTables("销售明细表").Compute("sum(入库金额)",
tj1), "n")
‘问题3,只计算选定复选框内容