本文介绍了一种利用Repeater控件显示主－从关系数据表的方法。

转载博客相关内容

最新推荐文章于 2020-05-17 19:51:07 发布

转载最新推荐文章于 2020-05-17 19:51:07 发布 · 88 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lhxhappy/archive/2005/03/16/119651.html

文章标签：

#ui #数据库 #javascript #ViewUI

此博客为转载内容，转载自https://www.cnblogs.com/lhxhappy/archive/2005/03/16/119651.html ，未提及具体信息技术相关关键信息。

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm3.aspx.vb" Inherits="test.WebForm3"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

<HEAD>

<title>WebForm3</title>

</HEAD>

<asp:repeater id="parentRepeater" runat="server">

<b>

<%# DataBinder.Eval(Container.DataItem,"name") %>

</b>

<br>

<asp:repeater id="childRepeater" runat="server" datasource='<%# Container.DataItem("myrelation") %>'>

<%# DataBinder.Eval(Container.DataItem, "title")%>

<br>

</itemtemplate>

</asp:repeater>

</itemtemplate>

</asp:repeater>

</form>

</body>

</HTML>

^_webform3.aspx

Public Class WebForm3Class WebForm3

Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()

End Sub

Protected WithEvents parentRepeater As System.Web.UI.WebControls.Repeater

'注意: 以下占位符声明是 Web 窗体设计器所必需的。

'不要删除或移动它。

Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

'CODEGEN: 此方法调用是 Web 窗体设计器所必需的

'不要使用代码编辑器修改它。

InitializeComponent()

End Sub

#End Region

Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'在此处放置初始化页的用户代码

' 为Authors表创建 Connection 和 DataAdapter

Dim myConnection As New SqlClient.SqlConnection

myConnection.ConnectionString = "server=localhost;database=lhx;uid=sa;pwd=eeeee;Connect Timeout=9999"

myConnection.Open()

Dim rs As New SqlClient.SqlDataAdapter("select * from authors", myConnection)

Dim ds As New DataSet

'创建填充 DataSet.

rs.Fill(ds, "authors")

'为Titles表创建 DataAdapter

Dim rs1 As New SqlClient.SqlDataAdapter("select * from titleauthor", myConnection)

rs1.Fill(ds, "titles")

'创建 Authors 表和 Titles 表之间的关系.

ds.Relations.Add("myrelation", ds.Tables("authors").Columns("au_id"), ds.Tables("titles").Columns("au_id"))

'绑定Authors到父Repeater

parentRepeater.DataSource = ds.Tables("authors")

Page.DataBind()

myConnection.Close()

myConnection.Dispose()

End Sub

End Class

^webform3.vb

转载于:https://www.cnblogs.com/lhxhappy/archive/2005/03/16/119651.html