主题：条件筛选

For Each dr As DataRow In DataTables("订单明细").Select("审核=false")

 

以上代码除了“审核=false“外，还要加上个“属性=自制”，请问老师代码怎么写啊

If User.Group = "经理" Then
    Tables("生产订单").Current("审核") = True
    Tables("生产订单").Current.Locked = True
    Tables("生产订单.订单明细").Current("审核") = True
Else
    MessageBox.show("你无审核权限!")
End If

还有这段代码，怎么子表的“审核”不是全部审核啊，只是审核最上面的一行，一起求教教我，谢谢老师们

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

 

回1楼：

明细表如果不是可以独立审核的，每次都是全部审核的就没有必要做明细表审核了，直接审核主表就可以

老师讲的很好，我改成了如下：

If  Tables("生产订单").Current("审核") = True Then
For Each dr As DataRow In DataTables("订单明细").Select("属性 like '自制'")
    Dim fdr As DataRow = DataTables("生产追踪").Find("明细代码 = '" & dr("明细代码") & "' and 物料编号 = '" & dr("物料编号")   & "'")
    If fdr Is Nothing Then
        fdr = DataTables("生产追踪").AddNew()
        fdr("明细代码") = dr("明细代码")
        fdr("物料编号") = dr("物料编号")
    End If
    fdr("订单号") = dr("订单号")
    fdr("产品编号") = dr("产品编号")      
    fdr("订单需求") = dr("订单需求")
    fdr("交货日期") = dr("交货日期")
    fdr("品名规格") = dr("品名规格")
    fdr("工序") = dr("工序")
   fdr("订单数量") = dr("订单数量") 

Next
End If

 

可是不能实现“属性”的模糊筛选，因为属性中有自制还有自制+外协 的内容，主要是复制后的是明细表里全部的筛选行，而不是当前已经审核过的对应子表行，老师还能解答吗？万分感谢了

有没有老师在，可以帮帮忙不了，各位老师，师傅们

小妹妹感谢了

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

 

改成

 

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

谢谢有点青老师，那主要的问题：只复制主表当前行下面的子表行内容还没有解决啊

For Each dr As DataRow In DataTables("订单明细").Select("属性 like '%自制%' and 订单号='" & Tables("生产订单").Current("订单号") & "'")