主题：筛选话题

类似于这样

Tables("订单明细").Filter = "[订单号] = '" & e.Form.Controls("ComboBox1").Text  & "'"
Dim drnew As Row
For Each dr As Row In Tables("订单明细").Rows
    drnew = e.Form.Controls("Table2").Table.AddNew()
    drnew("订单号") = dr("订单号")
    '......
Next