主题：处理复选框的问题

看了帮助里的处理复选框 现在有个疑问

我设计了一个下拉窗口 希望实现 选中窗口中的某几行后 能将选中的记录增加到当前表  请问要怎么设计？

我的代码是这样的 但是没效果啊

Dim tbl As Table = Tables("客户询价单查询_Table1")

For Each r As Row In Tables("客户询价单查询_table1").GetCheckedRows
   
   
   
    If r("产品自动编号") IsNot Nothing  Then
       
        Dim dr As DataRow=DataTables("供应商询价明细").addnew
         dr("产品自动编号")=r("产品自动编号")
               
    End If
Next
Forms("客户询价单查询").DropDownBox.CloseDropDown()