以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创] AfterCheckRow事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189751)
--  作者：chz007
--  发布时间：2023/12/23 10:30:00
--  [原创] AfterCheckRow事件



AfterCheckRow事件


Dim cgfph As WinForm.TextBox = e.Form.Controls("采购发票号")

Dim tj1 As String = " _identify > 0  "

If cgfph.Text <> "" Then

    tj1 = tj1 & "  and  采购发票号 like \'%" & cgfph.Text & "%\'"

End If

 

 DataTables("销售明细表").ReplaceFor("采购发票号", e.form.controls("采购发票号").text)


‘问题1 筛选表达式“666”的计算结果不是 Boolean 值项。

‘问题2如保只能更改选定复选框内容



 e.form.controls("到票金额").text = format(DataTables("销售明细表").Compute("sum(入库金额)", tj1), "n")

‘问题3，只计算选定复选框内容
--  作者：chz007
--  发布时间：2023/12/23 10:33:00
--  



AfterCheckRow事件


Dim cgfph As WinForm.TextBox = e.Form.Controls("采购发票号")

Dim tj1 As String = " _identify > 0  "

If cgfph.Text <> "" Then

    tj1 = tj1 & "  and  采购发票号 like \'%" & cgfph.Text & "%\'"

End If

 

 DataTables("销售明细表").ReplaceFor("采购发票号", e.form.controls("采购发票号").text)


‘问题1 筛选表达式“666”的计算结果不是 Boolean 值项。

‘问题2如保只能更改选定复选框内容



 e.form.controls("到票金额").text = format(DataTables("销售明细表").Compute("sum(入库金额)", tj1), "n")

‘问题3，只计算选定复选框内容


[此贴子已经被作者于2023/12/23 10:33:44编辑过]
--  作者：chz007
--  发布时间：2023/12/23 10:33:00
--  
为什么发的又变了，我发附件吧
--  作者：有点蓝
--  发布时间：2023/12/23 10:34:00
--  
[采购fa piao号]是逻辑列？

前提2、3，没看懂，请截图说明一下
--  作者：chz007
--  发布时间：2023/12/23 10:44:00
--  
请看看
--  作者：chz007
--  发布时间：2023/12/23 10:48:00
--  
截图从那里上传，我没有找到
--  作者：chz007
--  发布时间：2023/12/23 10:50:00
--  
附件也上传了，也找不到
--  作者：有点蓝
--  发布时间：2023/12/23 10:53:00
--  
上传文件方法：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

如果第4步的链接没有看到，就不断重复2,3步，直到看到第4步的链接
--  作者：chz007
--  发布时间：2023/12/23 10:53:00
--  
链接: https://pan.baidu.com/s/1RKzVw4OZ_UHGdE2P7A8Gvw?pwd=1234 提取码: 1234 复制这段内容后打开百度网盘手机App，操作更方便哦
--  作者：有点蓝
--  发布时间：2023/12/23 11:03:00
--  
AfterCheckRow事件这个代码的目的是做什么？把文本框的内容更新到所有勾选的行的采购fa piao号里？还是只是更新到正在勾选的行，以前勾选的行不管？