山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

几点疑问，谢谢解答

楼主babymm（豆豆）2005-06-22 15:26:43 在 VB / 控件提问

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

1 楼haipingma（今天你过得快乐吗?）回复于 2005-06-23 11:15:19 得分 0

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

2 楼babymm（豆豆）回复于 2005-06-24 16:25:05 得分 0

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

3 楼haipingma（今天你过得快乐吗?）回复于 2005-06-24 16:53:44 得分 20

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 Long

ShellExecute 0, "open", "c:\aa.doc", "", "", 3Top

4 楼babymm（豆豆）回复于 2005-06-24 16:57:04 得分 0

这个我知道，我是想在浏览器中输出这个文件可以吗？Top

5 楼haipingma（今天你过得快乐吗?）回复于 2005-06-24 17:25:53 得分 0

Response.Redirect("C:\\dd.doc");Top

6 楼haipingma（今天你过得快乐吗?）回复于 2005-06-24 17:29:11 得分 0

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

7 楼babymm（豆豆）回复于 2005-06-27 09:14:09 得分 0

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

8 楼babymm（豆豆）回复于 2005-06-27 10:11:56 得分 0

第二个问题已经解决，谢谢
请帮忙解答第一个问题，完了马上散分！Top

9 楼haipingma（今天你过得快乐吗?）回复于 2005-06-27 14:44:36 得分 0

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

10 楼babymm（豆豆）回复于 2005-06-27 16:17:07 得分 0

不懂，循环更新是怎样实现的？
能具体点吗？Top

11 楼haipingma（今天你过得快乐吗?）回复于 2005-06-27 17:02:31 得分 0

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 SubTop

12 楼haipingma（今天你过得快乐吗?）回复于 2005-06-27 17:04:35 得分 0

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

13 楼babymm（豆豆）回复于 2005-06-27 17:33:25 得分 0

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

14 楼haipingma（今天你过得快乐吗?）回复于 2005-06-27 18:04:34 得分 0

//这样的话是不是要先搜索出已经编辑了的节点值，然后再进行修改
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 SubTop

15 楼babymm（豆豆）回复于 2005-06-27 20:58:42 得分 0

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

16 楼haipingma（今天你过得快乐吗?）回复于 2005-06-28 08:51:26 得分 0

報什麼錯Top

17 楼babymm（豆豆）回复于 2005-06-28 10:18:17 得分 0

实时错误3021Top

18 楼babymm（豆豆）回复于 2005-06-29 09:18:13 得分 0

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

19 楼haipingma（今天你过得快乐吗?）回复于 2005-06-29 09:31:01 得分 0

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

20 楼babymm（豆豆）回复于 2005-06-29 09:49:04 得分 0

先谢谢你，那个确实是我自己这边的问题
但是数据库厘米的东西就是没改啊，你那里是对的吗？Top

21 楼haipingma（今天你过得快乐吗?）回复于 2005-06-29 10:25:55 得分 0

發給我看看,haipingma@21cn.comTop

22 楼babymm（豆豆）回复于 2005-06-29 14:38:25 得分 0

发过去了，多谢！Top

23 楼babymm（豆豆）回复于 2005-07-01 14:41:25 得分 0

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