以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复选框不选中时复制数据列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175777)
--  作者：weijun
--  发布时间：2022/3/18 13:52:00
--  复选框不选中时复制数据列

Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox1")
If chk.Checked = False
    For Each dr As DataRow In DataTables("入库明细").DataRows
        dr("入库重量") = dr("厂发重量")
    Next
End If

 

窗口有何复选框，不选中时复制数据列，代码没有效果
--  作者：有点蓝
--  发布时间：2022/3/18 13:56:00
--  
代码放在什么事件的？

Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox1")
msgbox(chk.Checked)
If chk.Checked = False
--  作者：weijun
--  发布时间：2022/3/18 13:57:00
--  

AfterLoad

生成窗口后执行，通常在此对窗口和控件进行初始化设置。
--  作者：weijun
--  发布时间：2022/3/18 14:03:00
--  
运行提示 False
--  作者：weijun
--  发布时间：2022/3/18 14:13:00
--  

DataColChanged

某一列的内容被更改后执行，此时列的内容已经是更改后的值。

可以了放到表事件里