这个没法显示,你或者考虑自己用vba做一个窗体里面去做实时监控了
稍等,回头给您做个范例吧
dim big,small
big = order.Account(6)
small = order.Account(6)
call application.SetTimer(0,2000)
Sub APPLICATION_Timer(ID)
if order.Account(6)>big then
big = order.Account(6)
application.MsgOut "最大值" & big
end if
if order.Account(6)<small then
small = temp
application.MsgOut "最小值" & small
end if
End Sub
如果你要做窗体显示等等话,需要客户自行处理这边给出个简单的记录最大最小值