主题：如何判断自动复制行内容

Dim r As Row = Tables("cpyb").Current

Dim dr As DataRow = datatables("xsdd").Find("产品编号 = '" & r("产品编号") & "'  and 产品名称='" &  r("产品名称") & "'")

 if dr is nothing then

 DataTables("xsdd").Addnew()

     dr("产品编号") = r("产品编号")

     dr("产品名称") = r("产品名称")

     dr("产品规格") = r("产品规格")

     dr("产品型号") = r("产品型号")

end if

参考这里http://www.foxtable.com/help/topics/2490.htm