Tôi có bàn về tiêu đề đâu? Người ta không hiểu bài #5 nên tôi giúp họ hiểu bài #5 thôi.
Anh hướng dẫn giúp với , Cảm ơn anh nhiều
Hướng dẫn cái gì?
Em dùng như này nhưng không có tiêu đề.
Private Sub CommandButton2_Click()
Dim i As Long, rCol As Long
Dim getArray As Variant
Dim cnnDb As New cnnDatabase
Set cnnDb = New cnnDatabase
cnnDb.Get_Record ("SELECT A.ORDNO, A.REFNO, A.FITEM, A.FDESC, A.ITCL, A.ORQTY, A.QTDEV, A.QTYRC, (A.ORQTY+ A.QTDEV-A.QTYRC) AS OPEN,A.SSTDT, A.ODUDT, A.JOBNO, A.OSTAT " & _
"FROM G20ACF9V.AMFLIBW.MOMAST A " & _
"WHERE substr(A.ORDNO,1,2) = 'MS' " & _
"ORDER BY A.REFNO,A.ODUDT")
With cnnDb.adors
Set .ActiveConnection = Nothing 'Disconnect the recordset.
rCol = .Fields.Count
getArray = .GetRows
End With
cnnDb.adors.Close
With ListBox1
.Clear
.ColumnCount = rCol
.ColumnHeads = True
.Column = getArray
.ListIndex = -1
End With
msgbox "Done"
End SubKhi bạn không thấy tiêu đề thì đó là do trong mảng kết quả getArray không có tiêu đề chứ không do .List = Application.Transpose(getArray) mà cũng chả do .Column =getArray
ngon lành chưa ?1/ để có 1 cái listbox có tiều đề xịn của nó thì cách sau là đơn giản nhất
View attachment 251527
2/ Còn sử dụng ADODB lấy vào 1 Arr = Rs.GetRows xong gán vào như hình trên là ko thể ...
Tuy nhiên nếu lách lấy nó gán vào 1 name xong lấy ra từ cái name đó gán vào ListBox1.RowSource = "Name" thì tạm ok ===> quá lằng nhằng
3/ còn hình sau là tây nó nói...
View attachment 251528
4/ Còn 1 cách trên GPE này là họ làm giả cái tiêu đề bài #380
Các câu hỏi về Form trong Excel VBA | Page 19 | Giải Pháp Excel (giaiphapexcel.com)
5/ File đính kèm là cho hình số 1
6/ hy vọng ai đó có thể xài ADODB lấy vào 1 Array xong gán vào listbox có 1 cái tiêu đề mà ko phải làm giả nó Or xài name phụ
Người ta đang nói về ListBox chứ không phải Listview nha bạn.
vậy cũng bị phát hiện, bài này em đang hỏi á? bí quá hong ai giúp giùm nên em định hù chơi thôi, vậy mà anh phát hiện rồi thiệt là...
tính mang long đao ra ... ??
