……
Filter = "[chanpinid] = " & e.DataRow("chanpinid") & " And [kehuid] = " & e.DataRow("kehuid") & " and [danjia]> 0" dr = DataTables("chuhuo").Find(Filter & "and [_Identify] < " & e.DataRow("_Identify"),"chuhuodate desc") '