解决VB中找不到列“list1“或用户定义的函数或聚合“list1.list“或都名称不明确的问题？以下程序中，第二行提示错误请高手帮忙解决！以下的程序目的是选择list1中的项，点击Comalt,数据

Question

解决VB中找不到列“list1“或用户定义的函数或聚合“list1.list“或都名称不明确的问题？以下程序中，第二行提示错误 请高手帮忙解决！ 以下的程序目的是选择list1中的项，点击Comalt,数据则出现在文本框中 Private Sub Comalt_Click() Set re = New ADODB.Recordset re.Open "Select * From Supp where Supp_name = List1.List(List1.ListIndex)", con, 3, 3 txtsname.Text = List1.List(List1.ListIndex) txtsnum.Text = re.Fields(supp_id) txtadd.Text = re1.Fields(Supp_adress) Fra1.Caption = " 修改" & txtsname & " " txtsname.SetFocus End Sub

Answer 1

改成这样吧：re.Open "Select * From Supp where Supp_name ='"+ List1.List(List1.ListIndex)+"'", con, 3, 3 原因在TSQL语句中没有将连接符与控件进行相连，那么语句认为为是字符串，而不是控件，所以会报错。