VB6文本框

Question

我正在设置一个如下所示的数据列表：

我有这样的表：

+-------------------+  
|---ID----|---NAME--|  
+-------------------+   
|---101---|---CNN---|   
|---102---|---BBM---|  
+-------------------+ 

在我使用ID listfield的数据列表上。当我从ID选择listfield列表时，我希望直接在文本框中显示名称。

e.g。 ：我在datalist中选择ID 101，然后在textboxname中显示“CNN”

Private Sub DataList1_Click()
    Txtnama.Text = DataList1.ListField = "nama"
End Sub

问题：文本框只显示“false”。 我该如何修复此代码。 请帮帮我 感谢

Answer 1

问题在于：

Txtnama.Text = DataList1.ListField = "nama"

此作业的右侧是表达式

DataList1.ListField = "nama"

这是一个布尔表达式。因此.Text属性的值设置为该布尔值。

你真正想要做的就是：

Txtnama.Text = DataList1.ListField("nama")

这样您只能从nama对象中选择DataList值。