|
Dim ezch As WinForm.TextBox = e.Form.Controls("账车号")
Dim drs As List(Of DataRow)
Dim filter As String
drs = DataTables("明细").Select("车号 ='" & ezch.Value & "'", "日期 desc")
Dim count As Integer = 0
For Each dr As DataRow In drs
If count >= 10 Then
Exit For
End If
count += 1
If filter = "" Then
filter = "_Identify=" & dr("_Identify") & ""
End If
filter = filter & " Or " & "_Identify='" & dr("_Identify") & "'"
Next
Tables("查询_查询表").filter= filter
|
加好友 
发短信
Post By：2017/3/9 16:55:00 [显示全部帖子]
