本文主要在子datagrid中使用函数返回数据.

<%@ Page Language="vb" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script language="VB" runat="server">
dim MyConnection as OleDbConnection
dim cmdSelect as OleDbCommand
dim dtrReader as OleDbDataReader


Sub Page_load(sender as object,e as Eventargs)
    MyConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" + Server.MapPath(".")+"/db/kk.mdb")
    if not IsPostBack() then
    Mydatagrid_DataBind()  
    end if
End Sub

Sub Mydatagrid_DataBind()
    Dim MyCommand As OleDbDataAdapter = new OleDbDataAdapter("select * from [class]", MyConnection)
    Dim DS As DataSet = new DataSet()
    MyCommand.Fill(DS,"board") 
    BigClassList.DataSource=DS.Tables("board").DefaultView
    BigClassList.DataBind()
End Sub

Function SmallClass(BigClassID) as DataTable
         dim SmallClassData as DataSet =new DataSet()
         MyConnection.Open()
         dim DataAdapter as OleDbDataAdapter = new OleDbDataAdapter("SELECT * FROM [board] WHERE class="& BigClassID &" ORDER BY boardid DESC",MyConnection)
         DataAdapter.Fill(SmallClassData,"SmallClassData")
         MyConnection.Close()
         return SmallClassData.Tables("SmallClassData")
End Function

</script>

<form Runat="server">
<asp:datagrid id="BigClassList"
               runat="server"
               AutoGenerateColumns="false"
               ShowHeader="false" 
               ShowFooter="false" 
               >
              <columns>
                <asp:TemplateColumn>
                   <ItemTemplate>
   <TABLE style="BORDER-COLLAPSE: collapse" borderColor="WHITE" BgColor="#e4eaf2" cellSpacing="0" cellPadding="0" width="400" align="center" border="1">
    <TR>
        <TD> <%#Container.DataItem("class")%></TD>
    </TR>
    </TABLE>
<!-- ---------------------------------------------------------- -->
     <asp:datagrid id="SmallClassList"
                   runat="server" 
                   AutoGenerateColumns="false" 
                   DataSource='<%# SmallClass(Container.DataItem("id").ToString()) %>'
                   ShowHeader="false" 
                   ShowFooter="false" 
                   >
         <columns>
                <asp:TemplateColumn>
                   <ItemTemplate>
          <TABLE style="BORDER-COLLAPSE: collapse" borderColor="WHITE" BgColor="#DBDBDB" cellSpacing="0" cellPadding="0" width="400" align="center" border="1">
          <TR>
              <TD width="30"><IMG SRC="yuan.gif" BORDER="0" ALT=""></TD>
              <TD><%#Container.DataItem("boardtype")%></TD>
          </TR>
          </TABLE>
                   </ItemTemplate>
                </asp:TemplateColumn>
         </columns>
     </asp:datagrid> 
                   </ItemTemplate>
                </asp:TemplateColumn>
              </columns>
</asp:datagrid> 
</form>