Question

VB6.0生成EXE文件时提示：未找到方法或数据成员

rivate Sub Command1_Click()
t = MsgBox("确定要提升此用户权限吗？", vbOKCancel + vbInformation, "提示")
If t = 1 Then '点击了确定按钮
rstree.Fields(2) = "管理员"
rstree.Update
Tree1.Nodes.Clear（这里的Nodes提示未找到方法或数据成员）
Command1.Enabled = False
Command2.Enabled = False
Tree1.Sorted = True
Set treenode = Tree1.Nodes.Add()
treenode.Text = "一般用户表"
treenode.Image = 1
Set rstree = ExecuteSQL("select * from user_Info where user_Des='用户'", sss)
While rstree.EOF = False
Set treenode = Tree1.Nodes.Add(1, tvwChild)
treenode.Text = rstree.Fields(0)
treenode.Image = 2
rstree.MoveNext
Wend
rstree.Close
Else
Exit Sub
End If
End Sub

Answer 1

你检查一下你的代码 调试看看哪一行报错，然后在找相应的错误。

追问

已经解决了，原来是SQL数据库链接失败了，链接上就没事了