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

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

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

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()

 If r("产品自动编号") IsNot Nothing Then

改为：

 If r.IsNull("产品自动编号")  = False Then

看看：

http://www.foxtable.com/help/topics/1470.htm