Thêm 1 chú ý nhỏ:
Đây là ComboBox, ListBox nằm trong bộ thư viện MS Form 2.0 (fm20.dll) của bộ ms office. Không phải các Controls khác. Dĩ nhiên là Excel thì làm với công cụ này rồi (Limit của FM20's ComboBox, ListBox là hình như chỉ support 20 columns thôi - ko nhớ lắm vì lâu quá rồi ko dùng đến món này)
Cách thức add items này ngoài việc dùng mảng như Cường thì hình như (cũng ko nhờ nốt vì chỉ còn tý thông tin nằm trong đầu) là đầu tiên thì add item (col 0), sau đó thì dùng thuộc tính List(...ko nhớ...) hay là item(...) gì đó để update các columns còn lại - hơi phiền vì phải dùng đến 2 lệnh trong vòng lặp. Tuy nhiên, nếu dùng trong Excel thì làm như Cường (dùng mảng) là ổn rồi.
chidung nói:
Cường thử xem, nếu không cần CommandButton mà chỉ cần khi Load Form lên là các Item tự cập nhật vào ComboBox có cách nào không ?
Chị chỉ cần viết 1 thủ tục kiểu như (Dựa theo cách lấy dữ liệu từ mảng)
Public Function LoadDataToComBo(cboName As Object, arrDataSource As Variant) As Boolean
'//*********************************************************************
'// Purpose: Load 1 mang vao ComboBox hoac Listbox cua MS Form 2
'// Parameters:
'// 1. cboName: ComboBox hoac ListBox can load du lieu
'// 2. arrDataSource: Mang n chieu - nguon du lieu can load len combobox hay listbox
'// Return:
'// - True If load successfull, False if failed.
'// Samples:
'// Dim Dim myArray(6, 3)
'// Fill myArray data here...
'// iRet = LoadDataToComBo(ComboBox1, myArray)
'// Written by: VNUNI Development team
'// Histories....
'// ...
'//*********************************************************************
On Error Goto Proc_Error
Dim ....
'// Asumes function failed.
LoadDataToComBo = False
'// Identify number of columns
cboName.ColumnCount = Ubound(arrDataSource,...) --> Làm thế nào để lấy chiều của mảng, tương ứng với số cột
'// Loading data to controls
cboName.Column() = MyArray
'// Continue your code here....
Done:
-----LoadDataToComBo = True
-----Exit Function
Proc_Error:
'// Raise error description here....
'//...
-----....
End Function
Trong sự kiện Form_Load hay Gì gì đó_Load
(Form đó có cái Combo, listbox của FM20.dll nhé) thì Call cái hàm như mô tả trong phần samples ở trên
Tóm lại là viết kiểu như vậy, còn code cụ thể thì lâu lắm rồi ko viết. Đoạn trên chỉ là viết chay thôi (ko viết trong môi trường lập trình)