几点疑问，谢谢解答

Question

1：如果labeledit值设为0的话就可以直接编辑修改各个节点
但是这样的话我怎么保持和数据库中数据的一致性呢？
就是说如果这样修改了节点值之后怎样才能存到数据库中？
非常感谢！！
2：WebBrowser到底是怎样用的哦？（比如我想点击一个按钮之后右面相应的WebBrowser里面显示本机上的一个htm文件）这里是不是有一个地方可以设置网页中显示的位置？就像帮助中那样，点击一项找到相应的帮助文件，是不是一个叫什么锚点的东西？
感谢感谢感谢。。

Answer 1

1 不明白意思
2 
Private Sub Command1_Click()
        WebBrowser1.Navigate2 "http://www.sohu.com"
End Sub

Answer 2

1，就和修改任意一个文件夹的名字一样，TreeView中的各个节点名字都是可以修改的是吧？
这里我问的就是如何和数据库中的节点名字保持一致性
2：如果是想打开电脑上的一个文件呢，比如c盘目录下的一个aa.doc文件

Answer 3

private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongShellExecute 0, "open", "c:\aa.doc", "", "", 3

Answer 4

Private Sub Command1_Click()
WebBrowser1.Navigate2 "F:\dd.doc"
End Sub

Answer 5

谢谢你！！
如果是相对目录的话是不是就是WebBrowser1.Navigate2 " & App.Path & "\aa.doc"？
为什么我这样写是错误的呢？
btw：第一个问题能帮我解答一下吗？

Answer 6

節點改了以後
循環執行Update，把他們更新到數據庫這樣不行嗎

Answer 7

Private Sub TreeView1_AfterLabelEdit(Cancel As Integer, NewString As String)
        If Not IsNull(NewString) Then
           cn.execute "update tablename set field1=newstring where ..."
        End If
End Sub

Answer 8

至於where 條件考慮用node的key或tag來記錄

Answer 9

真不好意思，我实在是笨了
我用的是Adodc，这里面的语句该怎样表达呢？
还有，这样的话是不是要先搜索出已经编辑了的节点值，然后再进行修改？

Answer 10

//这样的话是不是要先搜索出已经编辑了的节点值，然后再进行修改
Private Sub TreeView1_AfterLabelEdit(Cancel As Integer, NewString As String)
這個事件的發生是指你改完節點發生,那麼改完馬上就更新(每改一個都會發生)
Private Sub TreeView1_AfterLabelEdit(Cancel As Integer, NewString As String)
        If Not IsNull(NewString) Then
           Adodc1.Recordset.Fields("fields").Value = NewString
           Adodc1.Recordset.Update
        end if
End Sub

Answer 11

haipingma(今天你过得快乐吗?) 你好：
   上面这个在我这里怎么不行啊？
比如说我要改的字段为Name，那肯定就应该是
If Not IsNull(NewString) Then
           Adodc1.Recordset.Fields("Name").Value = NewString
           Adodc1.Recordset.Update
end if
是吗？我这里报错

Answer 12

haipingma(今天你过得快乐吗?) 你好：
 在我这里，TreeView1_AfterLabelEdit这个过程之后还仅仅改变了树当前显示的节点，而数据库中的字段并没有修改。麻烦你帮忙解答一下啦

Answer 13

Adodc1.Recordset.Fields("FieldName").Value = NewString
Adodc1.Recordset.Update
這個更新是沒問題的,我都試過了,
你為什麼出錯，那得看其它得代碼

Answer 14

非常感谢haipingma(今天你过得快乐吗?) 
好心的人