Bạn nào lớp mình chưa làm xong đồ án ghếp nối có thể liên hệ với mình,mình hỗ trợ làm cho nhé.
Full Name :Trần Ngọc Thắng
Phone:01682828296

hihi ji chứ cái này phải like cái

hay quá bác giải thích giúp e đoạn code này cái e xem trên mạng cũng ko hiểu lắm

cbobaud.Enabled = False
cbocom.Enabled = False
và cả cái đoạn này nữa

Private Sub show_infoget()
Dim str_cnn As String
Dim Item As ListItem
Set RS = New ADODB.Recordset
lv_get.ListItems.Clear
str_cnn = "Select * From Signal_Get ORDER BY Key_Get"
OpenDB.OpenRS RS, str_cnn
If RS.EOF = False Then
While Not RS.EOF
Set Item = lv_get.ListItems.Add(, , UCase(RS.Fields!Key_Get))
Item.SubItems(1) = RS.Fields(1)
RS.MoveNext
Wend
End If
End Sub