If e.Node.Level = 1 Then '如果单击的是第二层节点
Dim tr As Row = Tables("文件管理").Current
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
Dim ftp1 As new ftpclient
ftp1.host="120.198.124.195"
ftp1.Account = "und8042"
ftp1.password = "und8042ssa"
If ftp1.Download(dr("文件名称"),"c:\data\临时文件.doc") = True Then
e.Form.Controls("WebBrowser1").Address="c:\data\临时文件.doc"
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If