オプショングループ

※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

---

並替

 Private Sub opt並替_AfterUpdate()
 
   Select Case opt並替
   
   '降順
       Case 1: OrderBy = "[ID],[ID]"
       Case 2: OrderBy = "[AA],[ID]"
       Case 3: OrderBy = "[BB],[ID]"
       Case 4: OrderBy = "[CC],[ID]"
   End Select
 
   OrderByOn = True
 
 End Sub