老师,您好,我有一表想引用跨表的一个单价,帮助里的代码是引用第一个出现的数据。但我从后面引用第一个出现的数据,这个代码怎么改好?
比如:表里面有两个行数据,是相同的物料
第一行:2021/09/10 BB01 瓶子 0.05
第二行:2021/10/12 BB01 瓶子 0.07
我想取最新的2021/10/12号的单价0.07,像帮助里的代码要怎么改?
Select Case e.DataCol.Name
Case "品名","型号","规格"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("品名") OrElse dr.IsNull("型号") OrElse dr.IsNull("规格") Then
dr("单价") = Nothing
Else
Dim filter As String
filter = "品名 = '" & dr("品名") & "' And 型号 = '" & dr("型号") & "' And 规格 = '" & dr("规格") & "'"
pr = DataTables("产品").Find(filter)
If pr IsNot Nothing Then
dr("单价") = pr("单价")
End If
End If
End Select