|
Select Case e.DataCol.Name
Case "混凝土强度等级","集料"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("混凝土强度等级") OrElse dr.IsNull("集料") Then
dr("基准_信息价") = Nothing
Else
Dim filter As String
Dim d As Date = "2014-08-16"
filter = "混凝土强度等级 = '" & dr("混凝土强度等级") & "' And 集料 = '" & dr("集料") & "'"
If e.DataRow("供应日期") < d Then
pr = DataTables("至20140816止信息价表").Find(filter)
Else
pr = DataTables("从20140817起信息价表").Find(filter)
End If
If pr IsNot Nothing Then
dr("基准_信息价") = pr("单价")
End If
End If
End Select
|
加好友 
发短信
Post By：2015/1/7 14:37:00 [显示全部帖子]
