Dim Filter As String Dim r As Integer With e.Form.Controls("cmbProduct") If .Value IsNot Nothing Then Filter = "批号 like '%" & .Value & "%'" Dim t As Table = Tables("管理") Dim wz As Integer = t.FindRow(filter, t.Position+1, True ) If wz >= 0 Then t.Position = wz End If End If End With
加好友 
发短信
Post By：2018/4/24 12:02:00 [显示全部帖子]
