With MYRS
.Source = "SELECT 民國 FROM 資料 ORDER BY 民國 DESC"
.ActiveConnection = MYCON '指定所使用的Connection物件
.Open
End With
With 選單
.Clear
Do Until MYRS.EOF
If MYRS.Fields("民國") <> 條件 Then
.AddItem MYRS.Fields("民國")
End If
條件 = MYRS.Fields("民國")
MYRS.MoveNext
Loop
End With作者: et5323 時間: 2010-11-27 22:06
SELECT distinct 民國 FROM 資料 ORDER BY 民國 DESC作者: ltc 時間: 2010-11-28 08:47