正文:见图
解决方法: 在平台窗体的计时器触发事件
Private Sub Form_Timer()
'------添加代码开始-------------
' Dim strFilter As String
' If Me.sfrList.Form.OrderByOn Then
' strFilter = Me.sfrList.Form.OrderBy
' End If
'------添加代码结束-------------
RequeryDataObject Me.sfrList
If mclsQuery Is Nothing Then
Call Form_Load
Else
mclsQuery.DataForm = Me.sfrList.Form
End If
Me.TimerInterval = 0
'------添加代码开始-------------
' If strFilter <> "" Then
' Me.sfrList.Form.OrderBy = strFilter
' Me.sfrList.Form.OrderByOn = True
' End If
'------添加代码结束-------------
End Sub