主题：[求助] CheckedListBox 选择求助

我在 CheckedListBox    SelectedIndexChanged 事件中写入如下代码

Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim a1 As String
For i As Integer = 0 To ckl.Items.count - 1
If ckl.GetItemChecked(i) = True Then
a1=e.Sender.SelectedValue
Dim a2 As DataRow = DataTables("总部统计表").find("单位=  '"& a1 &"'")
If a2 Is Nothing = True Then
Dim a3 As DataRow = DataTables("总部统计表").AddNew()
a3("单位") = a1
   End If
Else
Tables("总部统计表").current.Delete()
End If
Next

选择 单位后，无法添加，只有选择最后一个才能添加，而且当选中变成不选中状态时，报错

.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.10.26.1
错误所在事件：窗口,综合统计表,CheckedListBox1,SelectedIndexChanged
详细错误信息：
未将对象引用设置到对象的实例。

我想实现的目的是：选择相应的“单位”后在 名叫“总部汇总表”中添加这个“单位”，若取消选中，则在“总部汇总表”中删除这个单位。请老师们给看一下问题出在哪里？

如有好的实现方式，也可以给指点一下，谢谢。

问题解决，老师你太厉害了，非常完美，为你点赞！！！