主题：复选框不选中时复制数据列

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

窗口有何复选框，不选中时复制数据列，代码没有效果

AfterLoad

DataColChanged

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