主题：复选框刷新之后指定选中的问题

问题描述:如图,选中4个数据要添加到Table3中,现在的问题是只能添加第一个数据然后就会刷新这个Table4

             ,刷新之后就没有选中的数据了.怎么样在添加数据刷新之后还会选中剩下的数据继续添加到Table3中

             有什么资料吗?

项目中窗口2,page2,Button3按钮

主要需求是:Table4和Table5之间的问题,需要把Table4中的数据通过Button3按钮

                添加到Table5中,Table5有 bcid 和ddid 字段 表之间的关联关系是:

                Table1 和Table4  : ddid = _IDENTFY

                Table4和Table5  :  bcid = id

                当Table4中的数据添加到Table5中并保存之后,会刷新Table4的数据,当金额 = 0 的时候,不加载此条数据

刷新之后无法保存勾选的数据,那字典的技术能不能实现先把勾选的数据保存在字典中,通过Button3按钮,

在Table5中添加对应的行数之后,再进行赋值

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

Dim rs As List(of Row) = Tables("..._Table4").GetCheckedRows
    If rs.Count > 0 Then '如果存在符合条件的行
        Dim dic As new Dictionary(of DataRow,List(of object))
        Dim ls As new List(Of object)
        For Each r4 As Row In rs
            Dim dr As DataRow = DataTables("..._Table3").AddNew
            ls.add("减少")
            ls.Add(r4("id"))
            ls.Add(r4("补偿类型"))
            ls.Add(r4("证书说明"))
            ls.Add(r4("剩余金额") *-1)
            dic.Add(dr,ls)

            msgbox(dic(dr)(0) & dic(dr)(1) & dic(dr)(2)  & dic(dr)(3) &dic(dr)(4))   '这里只能输出第一行数据         
        Next
        For Each dr As DataRow In dic.Keys
            dr("zj类型")=dic(dr)(0)
            dr("bcid")  = dic(dr)(1)
            dr("类型") = dic(dr)(2)
            dr("备注") = dic(dr)(3)
            dr("使用金额")= dic(dr)(4)
        Next        '
    End If

             输出第一行数据,勾选的第二行不能输出,请帮我看看代码哪里有问题