Dim ezch As WinForm.TextBox = e.Form.Controls("账车号")
Dim drs As List(Of DataRow)
Dim filter As String
drs = DataTables("明细").Select("车号 ='" & ezch.Value & "'")
For Each dr As DataRow In drs
If filter = "" Then
filter = "批号='" & dr("批号") & "'"
End If
filter = filter & " Or " & "批号='" & dr("批号") & "'"
Next
Tables("查询_查询表").filter= filter
上面代码按车号查找相应批号并显示表,如果想显示最近10次批号记录,求解。有日期列。