目標：為了使三個combo每個下拉選單都顯示卡號 姓名 上機日期 上機時間 下機日期 下機時間 消費金額 餘額

常規辦法：

Comboname1.AddItem "卡號"
Comboname1.AddItem "姓名"
Comboname1.AddItem "上機日期"
Comboname1.AddItem "上機時間"
Comboname1.AddItem "下機日期"
Comboname2.AddItem "卡號"
.........

如果有N個combo需要相同的選單甚是繁瑣

新的辦法：

Dim a() As String
Dim b() As String
Dim i As Integer
a = Split("卡號 姓名 上機日期 上機時間 下機日期 下機時間 消費金額 餘額")
For i = 0 To 6
Comboname1.AddItem (a(i))
Comboname2.AddItem (a(i))
Comboname3.AddItem (a(i))
Next i

 

其中用到了SPlit函式 split翻譯隔離
語法：Split(expression[,delimiter[,count[,compare]]])
expression 必需的。包含子字串和分隔符的字串表示式。
delimiter 可選的。用於識別子字串界限的字元。預設是空格字元。
count 可選的。需被返回的子字串的數目。-1 指示返回所有的子字串。
compare
可選的。規定要使用的字串比較型別。

可採用下列的值：

0 = vbBinaryCompare - 執行二進位制比較。
1 = vbTextCompare - 執行文字比較。