主题：[原创] AfterCheckRow事件

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，只计算选定复选框内容