主题：有关窗体闪烁问题

forms("车辆回车确认").stopRedraw

Tables("车辆回车确认_Table1").StopREdraw
Dim ss As String = "select * from {车辆配送表} where [状态] = '出车完成'"
Tables("车辆回车确认_Table1").fill(ss,"baox",False)
Tables("车辆回车确认_Table1").Sort = "车牌号,出车时间"
Dim str1 As String = "运输单号,90|运输类型,60|状态,60|车牌号,70|司机姓名,60|计划单号,80|待运单号,80|出车时间,80|回车时间,80|出发地址,100|目的地址,100|收货单位,70|实际运量,70|实际件数,70|车型,60|发货通知号,70|货物名称,60|路桥费,60|公里数,60"
Functions.Execute("显示列",Tables("车辆回车确认_Table1"),str1)

Tables("车辆回车确认_Table1").ResumeRedraw
forms("车辆回车确认").ResumeRedraw