主题：[求助]筛选关联表

If e.DataCol.Name = "物料名称" Then

    DataTables("配方汇总表").StopRedraw '停止绘制

    DataTables("配方汇总表").ReplaceFor("查询筛选辅助列", Nothing) 

    Dim Filter As String = "[物料名称] = '" & e.DataRow("物料名称") & "'"

    Dim dr As DataRow = e.DataRow

    dr("查询筛选辅助列") = "ok" 

DataTables("配方汇总表").ReplaceFor("查询筛选辅助列", "ok","关联列 in ('" & DataTables("配方明细表").GetComboListString("关联列",Filter).replace("|","','") & "')") 

    DataTables("配方汇总表").ResumeRedraw '恢复绘制

End If