Dim Filter As String If e.ToggleButton.Pressed = True Then Filter = "YNKP = 1"
With DataTables("Order") .LoadFilter = Filter '加载条件 .LoadPage = 0 '加载第一页 .LoadTop = 100% .Load() End With Else ‘当状态按钮弹起时，如何实现筛选的条件为表1中日期字段（值如：2015-1-20）等于当前年和月的记录。 日期字段=2015-1月的记录 End If
加好友 
发短信
Post By：2015/1/20 17:14:00 [只看该作者]
