主题：代码类型引用

要加上单引号。 http://www.foxtable.com/webhelp/scr/1647.htm

For Each dr1 As DataRow In DataTables("生产排产表").Select("[订单状态] = '待审核'")
    Dim dr2 As DataRow = DataTables("生产排产维护_生产排产").AddNew()
    For Each dc As DataCol In DataTables("生产排产表").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next