If stbMainInfo.Caption = "表1" Then
adoList.RecordSource = "表1"
adoList.Refresh
DataGrid1.Refresh
End If
If stbMainInfo.Caption = "路线A" Then
adoList.RecordSource = "select * from pclbtoday where 路线='A'"
adoList.Refresh
DataGrid1.Refresh
DataGrid1.AllowUpdate = False
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
.labSumCustomRA.Caption = adoList.Recordset.RecordCount
.labSumCustomRAA.Caption = adoList.Recordset.RecordCount
End If
……………………