Listbox vba lấy dữ liệu SQL lên dưới 10 cột thì không báo lỗi trên 10 cột thì báo lỗi (3 người xem)

[kingbo.camera]

Listbox vba lấy dữ liệu SQL lên dưới 10 cột thì không báo lỗi trên 10 cột thì báo lỗi

 

[UltraExcel]

Listbox vba lấy dữ liệu SQL lên dưới 10 cột thì không báo lỗi trên 10 cột thì báo lỗi

bạn gửi file lên mới biết chứ.

 

[nguyendang95]

Listbox vba lấy dữ liệu SQL lên dưới 10 cột thì không báo lỗi trên 10 cột thì báo lỗi

Nếu bạn dùng phương thức .AddItem để thêm dữ liệu vào thì tối đa được 10 cột thôi, bạn thử xây dựng thành mảng hai chiều rồi đưa dữ liệu vào thông qua thuộc tính .List xem sao.

 

[kingbo.camera]

Nếu bạn dùng phương thức .AddItem để thêm dữ liệu vào thì tối đa được 10 cột thôi, bạn thử xây dựng thành mảng hai chiều rồi đưa dữ liệu vào thông qua thuộc tính .List xem sao.

' Dua du lieu vao ListBox
Dim arrData() As Variant

If Not (rsData.EOF And rsData.BOF) Then
rsData.MoveLast
rsData.MoveFirst
arrData = rsData.GetRows()
arrData = TransposeArray(arrData)
arrGoc = arrData ' Luu du lieu goc dung khi tim kiem

' Dinh dang cot ngay thang
Dim row As Long, col As Long
For row = LBound(arrData, 1) To UBound(arrData, 1)
For col = LBound(arrData, 2) To UBound(arrData, 2)
If IsDate(arrData(row, col)) Then
arrData(row, col) = Format(arrData(row, col), "dd/mm/yyyy")
End If
Next col
Next row

' Hien len list
With Me.LstPhuongTien
.Clear
.ColumnCount = rsData.Fields.Count
.ColumnWidths = "60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60"
.List = arrData
End With

'Di chuyen den dong cuoi
If LstPhuongTien.ListCount > 0 Then
LstPhuongTien.ListIndex = LstPhuongTien.ListCount - 1
End If
End If

Mình cho dữ liệu hiện lên listbox được rồi. Giờ mình muốc code textbox tìm kiếm theo dữ liệu listbox trên (giã sử tìm cột 4, cột 7) thì sao bạn

 

[ptm0412]

Tìm kiếm và lọc Listbox theo cột, đọc bài này và tải nguyên bộ tài liệu Userform ở bài cuối

Đăng bài trong chủ đề 'Quy trình của việc tạo Userform trong Excel và các bước thực hiện'

15/8/23

Lọc listbox nhiều cột​

Lọc 1 cột​

Tôi đã thấy nhiều form có thiết kế lọc listbox theo từ khóa, gõ vài ký tự vào 1 textbox, gõ đến đâu list được lọc ngắn đến đó.
Đại khái là vầy: Gõ tìm kiếm khách hàng 1 ký tự f



Gõ tiếp r thành fr



Gõ tiếp fr*2 . Lưu ý có thể dùng dấu * trong search key



Như vậy cũng chỉ lọc được 1 cột khách hàng, không lọc theo cột khác.

Lọc nhiều cột​

Để có thể tùy chọn cột để lọc, ta tạo 1 combobox chọn cột, viết code sao cho chọn cột nào lọc cột đó.



Và cũng chỉ dùng 1 textbox Search key...

• ptm0412

• 
•