honglv157 > 20-02-17, 05:05 PM
tranthanhan1962 > 21-02-17, 12:25 AM
Private Sub Text1_AfterUpdate()
Select Case A.Value
Case "Hồng"
B.Value =1
Case "Hoa" or "Hóa"
B.Value =2
Case "Mai"
B.Value =3
Case "Khánh"
B.Value =0
Case "Tổg"
B.Value =8
End Select
End Sub
Private Sub Text1_AfterUpdate()
Select Case A.Value
Case Label1.Caption
B.Value =1
Case Label2.Caption
B.Value =2
........
End Sub
honglv157 > 21-02-17, 09:46 AM
honglv157 > 21-02-17, 09:47 AM
tranthanhan1962 > 22-02-17, 08:24 AM
honglv157 > 22-02-17, 09:09 AM
honglv157 > 22-02-17, 09:23 AM
honglv157 > 22-02-17, 02:59 PM