主题：复选框选定问题

如图:我需要的是把表中复选框为选中状态的行添加到Table3中,但是图2这样写的话是

       把Table4的数据全部添加到Table3中了,怎么修改?

此主题相关图片如下：1.png


此主题相关图片如下：2.png

如图:添加补偿之后会刷新Table4的数据,但是每次刷新之后当前行会被选中,

       然后第一行就会被添加到Table3中,怎么样把Table3刷新数据之后当前行不会被选中

 

此主题相关图片如下：3.png

 

图三为刷新按钮,刷新数据后的代码

 

此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png

Dim r As Row =Tables("...._Table3").Current
Dim bcid As Integer
If r IsNot Nothing  Then
    bcid= r("bcid")
    With Tables("...._Table4")
        Dim p As Integer
        p= .FindRow("[id]=" & bcid ) '从当前行的下一行开始查找
        If p >= 0 Then '如果找到的话

            SystemReady = False           
            .position = p
            SystemReady = True           
            .Rows(p).checked = False           
        End If
    End With   
End If

 

 上面的代码修改了,然,没看出效果

在窗口加载之后或者添加补偿刷新表数据的时候

仍然会选中第一行当前行的复选框,我想要的效果是加载窗口或者刷新数据的时候复选框全部为未选中状态

此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png