Vars("Val") = Vars("Val") + 1 Select Case Vars("Val") Mod 4 Case 1 e.Form.Controls("TreeView1").BuildDataTree("质量日记录", "", "姓名","年月") Case 2 e.Form.Controls("TreeView1").BuildDataTree("质量日记录", "","年月","日") Case 3 e.Form.Controls("TreeView1").BuildDataTree("质量日记录", "", "年月","姓名") Case 0 Tables("质量日记录").ApplyFilter = False End Select