Dim mst As ADODB.Recordset
Dim ms As String  
  ms = "select * from DIRECTORY where NAME_CHINESE= " & TreeView1.SelectedItem & " and ID=" & Val(Split(TreeView1.SelectedItem.Key, "\")(0)) & ""
    Set mst = ExecuteSQL(ms)

   
    MsgBox mst!id
请问这段程序为什么运行到MsgBox mst!id总是报错！！！　"对象变量或with块变量未设置"

"对象变量或with块变量未设置"
就是说这个变量 mst!id 没有进行定义。这里可能是您输入错误吧，应是mst

正确代码！！！
Dim mst As ADODB.Recordset
Dim ms As String
If TreeView1.SelectedItem.Image = ImageList1.ListImages(2).Key Then

    ms = "select * from DIRECTORY where NAME_CHINESE= '" & TreeView1.SelectedItem & "' and ID=" & Val(Split(TreeView1.SelectedItem.Key, "\")(0)) & ""
    Set mst = ExecuteSQL(ms)

   
    MsgBox mst!id
也就是在查找数据库NAME_CHINESE= " & TreeView1.SelectedItem & "语句中加了个''都不知道到底起什么作用？请高手回答．．
还有，我数据库上的字段ＩＤ是大写的，所以特别在  MsgBox mst!id也用的大写"ID"怎么程序默认就变小写了，以前的程序都不会默认小写

[[italic] 本帖最后由 cq271359502 于 2008-1-18 22:05 编辑 [/italic]]