Dim str As String For Each dr1 As DataRow In DataTables("实体材料分析").Select("材料编号 Is not Null") '计算实体材料分析表中材料市场价 If dr1("RCJ") = "W" Then str = "[材料编号] = '" & dr1("材料编号") & "' And [序号1] = '" & dr1("序号1") & "'" Else str = "材料编号 = '" & dr1("材料编号") & "'" End If Dim dr2 As DataRow = DataTables("使用材料").Find(str) If dr2("市场价") > 0 Then dr1("市场价") = dr2("市场价") Else dr1("市场价") = dr2("定额价") End If Next
|