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 SubPrivate Sub Text1_AfterUpdate()
Select Case A.Value
  Case Label1.Caption
      B.Value =1
  Case Label2.Caption
      B.Value =2 
  ........
End Subhonglv157 > 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