主题：条件筛选

If User.Group = "经理" Then
    For Each r As Row In Tables("生产订单").rows
        r("审核") = True
        r.locked = True
        r.Table.Position = r.Index
        For Each cr As Row In Tables("生产订单.订单明细").rows
            cr("审核") = True
        Next
    Next
   
Else
    MessageBox.show("你无审核权限!")
End If

For Each dr As DataRow In DataTables("订单明细").Select("属性 like '自制'")

改成

For Each dr As DataRow In DataTables("订单明细").Select("属性 like '%自制%'")