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

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

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