如何在窗体启动的时候调用Tv1_NodeClick事件?
谢谢!
谢谢!
解决方案 »
- 类模块调用其他类模块中的过程,未设置对象变量或 With block 变量错误
- VB记录数据问题....请各位支招..呵呵..谢谢..
- 求能够与PHP链接的桌面宠物代码
- 对象"HWND"的方法 IWebbrowse2 失败 什么原因? 有源代码!
- 如何触发鼠标右健的单击事件,(用API)
- 亲爱的朋友,你现在是否还在花父母的血汗钱?是否喜欢一样东西但不敢问津?是否有心爱的女孩,却因为囊中羞涩而失之交臂?
- CloneCenter(复制中心) 我要找你呀,快快来吧
- 多语种支持问题
- 急求:如何在VB中用代码实现水晶报表的使用
- 用何控件可输入IP地址格式:"###.###.###.###"?
- 中海大侠请进
- 关于Setup Factory的一个小问题
Tree_NodeClick Tree.Nodes(node)
Private Sub Tv1_NodeClick(ByVal Node As MSComctlLib.Node)If InStr(Tv1.SelectedItem.Key, "LB") Then
OpenRS1 "SELECT XH AS 学号,XM AS 姓名,XB AS 性别,SFZH AS 身份证号,TYPE AS 学生类别,LQTYPE AS 录取类别 FROM 学生表 WHERE YXDM='" & Left(Tv1.SelectedItem.Text, 3) & "'"
Set FP.DataSource = RS1
FP.MaxRows = RS1.RecordCount
ElseIf InStr(Tv1.SelectedItem.Key, "NJ") Then
OpenRS1 "SELECT XH AS 学号,XM AS 姓名,XB AS 性别,SFZH AS 身份证号,TYPE AS 学生类别,LQTYPE AS 录取类别 FROM 学生表 WHERE YXDM='" & LogDM & "' AND NJ='" & Left(Tv1.SelectedItem.Text, 4) & "'"
Set FP.DataSource = RS1
FP.MaxRows = RS1.RecordCount
Else
OpenRS1 "SELECT XH AS 学号,XM AS 姓名,XB AS 性别,SFZH AS 身份证号,TYPE AS 学生类别,LQTYPE AS 录取类别 FROM 学生表 WHERE YXDM='" & LogDM & "' AND NJ='" & Left(Tv1.SelectedItem.Parent.Text, 4) & "' AND ZYDM='" & Left(Tv1.SelectedItem.Text, 6) & "'"
Set FP.DataSource = RS1
FP.MaxRows = RS1.RecordCount
End If
那还用问吗?
应该改成下面这样子!If InStr(Node.Key, "LB") Then
for i=0 to Tv1.Nodes.Count
if tv1.nodes(i).key="LB" then "LB"<---这里改为你要选择的节点的key
Tv1.Nodes(i).selected=ture
end if
next
后面再加你的代码,出错的原因是 Tv1.selecteditem is nothing
for i=1 to Tv1.nodes.count