Private Sub ListTree() Dim Tree As TreeNode Dim right As New DataTable() strSQL = "select OrgID,OrgName,IsUpd from T_eSuperviseRightOrgInfo where len(OrgID)=2" right = sqlQry.Query(strSQL) Try If right.Rows.Count < 1 Then Exit Sub End If For iLop = 0 To right.Rows.Count - 1 Tree = New TreeNode() sClassID = Trim(right.Rows(iLop).Item("OrgID")) Tree.ID = sClassID Tree.Text = Trim(right.Rows(iLop).Item("OrgName")) Tree.NavigateUrl = "DeptBehalf.aspx?OrganID=" + sClassID //注意看这一行,NavigateUrl这个属性就是起这个作用的,如果您需要更多代码帮助,请把邮箱贴出来,我把相关代码发给您 Tree.Target = "main" TreeClass.Nodes.Add(Tree) NodeAdd(sClassID, Tree, 2) Next Catch e As Exception Response.Write(e.Message) End Try End Sub
<frameset id="tmain" cols="20%,*" frameBorder="1">
<frame name="left" src="DeptTree.aspx" scrolling="auto">
<frame name="main" src="DeptBehalf.aspx">
</frameset>
那我怎么做啊?
我想把FRAME约束起来。
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>部门维护</TITLE>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<frameset id="tmain" cols="20%,*" frameBorder="1">
<frame name="left" src="DeptTree.aspx" scrolling="auto">
<frame name="main" src="DeptBehalf.aspx">
</frameset>
</HTML>
直接放在table里也是可以的,并不需要做特别操作
Dim Tree As TreeNode
Dim right As New DataTable()
strSQL = "select OrgID,OrgName,IsUpd from T_eSuperviseRightOrgInfo where len(OrgID)=2"
right = sqlQry.Query(strSQL)
Try
If right.Rows.Count < 1 Then
Exit Sub
End If For iLop = 0 To right.Rows.Count - 1
Tree = New TreeNode()
sClassID = Trim(right.Rows(iLop).Item("OrgID"))
Tree.ID = sClassID
Tree.Text = Trim(right.Rows(iLop).Item("OrgName"))
Tree.NavigateUrl = "DeptBehalf.aspx?OrganID=" + sClassID //注意看这一行,NavigateUrl这个属性就是起这个作用的,如果您需要更多代码帮助,请把邮箱贴出来,我把相关代码发给您 Tree.Target = "main"
TreeClass.Nodes.Add(Tree)
NodeAdd(sClassID, Tree, 2)
Next
Catch e As Exception
Response.Write(e.Message)
End Try
End Sub
<frame name="refresh" frameborder="no" scrolling="no" src="check.aspx">
<FRAME noresize src="TopFrame.aspx" name="top" frameborder="no" scrolling="no">
<FRAMESET cols="138,*">
<FRAME noresize src="LeftFrame.aspx" name="left" frameborder="no" scrolling="no">
<frame src="Index.aspx" name="main" frameBorder="0" scrolling="yes">
</FRAMESET>
</FRAMESET>