标题：[原创] 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，只计算选定复选框内容

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

为什么发的又变了，我发附件吧

[采购fa piao号]是逻辑列？

请看看

截图从那里上传，我没有找到

附件也上传了，也找不到

上传文件方法：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

链接: https://pan.baidu.com/s/1RKzVw4OZ_UHGdE2P7A8Gvw?pwd=1234 提取码: 1234 复制这段内容后打开百度网盘手机App，操作更方便哦

AfterCheckRow事件这个代码的目的是做什么？把文本框的内容更新到所有勾选的行的采购fa piao号里？还是只是更新到正在勾选的行，以前勾选的行不管？