多选数据代码优化问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim drs As List(Of DataRow) = tb.DataTable.Select("多选 = true") '遍历所有已经勾选的行
Tables("出入记录_主表.出入记录_明细表").StopRedraw
SystemReady = False
For Each r As DataRow In drs
    Dim drr As Row = Tables("出入记录_主表.出入记录_明细表").AddNew
    drr("产品编码")= r("产品编码")
    drr("产品名称") = r("产品名称")
    drr("产品规格") = r("产品规格")
    drr("单位") = r("单位")
Next
SystemReady = True
Tables("出入记录_主表.出入记录_明细表").ResumeRedraw

主题：多选数据代码优化问题