For Each dc As Col In t1.Cols For Each dr As Row In t1.Rows flt = "类号 = '" & dr("类号") & "' and 材料名称 = '" & dr("材料名称") & "' and 出生日期 = '" & dr("出生日期") & "'" If dic.containskey(dr("审核内容")) Then Select Case dc.name Case "材料最早形成时间" exp = "Min(" & dic(dr("审核内容")) & ")" dr(dc.name) =dt.Compute(exp,flt) Case "材料最新形成时间" exp = "Max(" & dic(dr("审核内容")) & ")" dr(dc.name) =dt.Compute(exp,flt) End Select End If Next Next
|