tvn_hut > 12-05-18, 03:14 PM
ongke0711 > 12-05-18, 06:32 PM
Private Sub ComboBox1_AfterUpdate()
Dim strSQL As String
Dim sField As String
sField = Me.ComboBox1.Value
strSQL = "SELECT Table1.ID FROM Table1 WHERE Table1." & sField & "=-1"
Me.ComboBox2.RowSource = strSQL
Me.ComboBox2.Requery
End Sub
tvn_hut > 14-05-18, 03:54 PM
(12-05-18, 06:32 PM)ongke0711 Đã viết: Vụ này cũng không phức tạp.
Nếu theo tôi hiểu thì table của bạn như thế này: ví dụ đặt tên "Table1"
---------------------------------------------
ID LineA LineB LineC
---------------------------------------------
a Y Y Y
b Y N Y
- ComboBox1: có RowSource là 'Value List' bạn tự gõ tên Field vô đơn giản rồi. (Nếu muốn lấy tên Field tự động cũng không khó)
- ComboBox2: bạn sẽ gán RowSource bằng code VBA ở sự kiện ComboBox1_AfterUpdate.
Mã PHP:Private Sub ComboBox1_AfterUpdate()
Dim strSQL As String
Dim sField As String
sField = Me.ComboBox1.Value
strSQL = "SELECT Table1.ID FROM Table1 WHERE Table1." & sField & "=-1"
Me.ComboBox2.RowSource = strSQL
Me.ComboBox2.Requery
End Sub
ongke0711 > 14-05-18, 04:35 PM
tvn_hut > 26-05-18, 12:06 AM
(14-05-18, 04:35 PM)ongke0711 Đã viết:(14-05-18, 03:54 PM)tvn_hut Đã viết: Cám ơn bạn Ongke0711 nhiều. tiện thể bạn giải thích giúp mình tại sao giá trị điều kiện lại là -1. Khi giá trị yes là true hoặc 1 chứ.
Vì hằng Boolean nó qui định vậy. Nếu bên SQL thì sẽ là 1/0 cho Yes/No, True/False.
hoaqldd33 > 14-07-18, 08:06 PM