关于使用DataList显示数据/遍历目录下的子目录和文件/DataGrid中实现Table的Rowspan和Colspan的3个例子...

一、使用DataList显示数据的例子

在aspx页面中的代码如下：
<asp:DataList id="SupplierInfoList" runat="server" CellPadding="0" CellSpacing="0" Width="90%" HorizontalAlign="Center" BackColor="#E1E1E1" BorderWidth="0px" RepeatColumns="2">
 <HeaderTemplate>
  <table cellSpacing="1" cellPadding="0" width="100%" align="center" border="0" bgcolor="#E1E1E1">
   <tr bgcolor="#FFFFEE">
    <td width="25%" height="30" align="center"><B>CompanyName</B></td>
    <td width="25%" align="center"><B>City</B></td>
    <td width="25%" align="center"><B>CompanyName</B></td>
    <td width="25%" align="center"><B>City</B></td>
   </tr>
  </table>
 </HeaderTemplate>
 <ItemStyle Width="50%" Height="100%"></ItemStyle>
 <ItemTemplate>
  <table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0">
   <tr>
    <td width="50%" height="30" align="center"><a href="../InfoModify/ModifyData.aspx?ID=<%# databinder.eval(container.dataitem,"SupplierID")%>&BackPath=../UseDataList/DataListQuery.aspx"><%# databinder.eval(container.dataitem,"CompanyName")%></a></td>
    <td width="50%" align="center"><%# databinder.eval(container.dataitem,"City")%></td>
   </tr>
  </table>
 </ItemTemplate>
</asp:DataList>

重点注意DataList中的RepeatColumns属性，表示将数据在一行中重复几列显示。如RepeatColumns="2"，表示在一行中显示两条数据。

在aspx.vb后台程序中的代码如下：
Private Sub QuerySupplierInfo(ByVal QueryFlag As Boolean)

        Dim MyConnectString As String               '数据库连接字符串
        Dim MyConnection As SqlConnection      '数据库连接对象
        Dim MyDataAdapter As SqlDataAdapter
        Dim MyDataTable As DataTable
        Dim MySql As String

        '获取数据库连接字符串。连接字符串定义在Web.config中。
        MyConnectString = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString").ToString

        'SQL语句
        MySql = "Select * from Suppliers"
        If TxtCompanyName.Text.Trim <> "" And TxtCity.Text.Trim <> "" Then
            MySql += " where CompanyName like '%" + TxtCompanyName.Text.Trim + "%' and City like '%" + TxtCity.Text.Trim + "%'"
        ElseIf TxtCompanyName.Text.Trim = "" And TxtCity.Text.Trim <> "" Then
            MySql += " where City like '%" + TxtCity.Text.Trim + "%'"
        ElseIf TxtCompanyName.Text.Trim <> "" And TxtCity.Text.Trim = "" Then
            MySql += " where CompanyName like '%" + TxtCompanyName.Text.Trim + "%'"
        End If

        '访问数据库，将数据存放在DataTable。
        '******************************************************
        MyConnection = New SqlConnection(MyConnectString)
        MyDataAdapter = New SqlDataAdapter(MySql, MyConnection)
        MyDataTable = New DataTable
        MyDataAdapter.Fill(MyDataTable)
        MyConnection.Close()
        '******************************************************

        '将DataTable数据绑定到DataList，显示信息。
        '******************************************************
        If MyDataTable.Rows.Count > 0 Then
            '设置DataList的数据源
            SupplierInfoList.DataSource = MyDataTable.DefaultView
            '绑定数据源到DataList
            SupplierInfoList.DataBind()
        Else
            If QueryFlag Then
                Call PublicFunction.Dialog(Me, "没有找到符合条件的数据!")
            End If
        End If
        '******************************************************

End Sub

后台数据访问以及DataList控件的数据绑定，和DataGrid使用方法相同。

二、遍历一个目录下所有目录和文件的例子

后台主要程序代码如下：

'strPath为目录路径,如C:\
'ChkFolder和ChkFile为两个CheckBox,表示遍历目录还是文件

Dim MyFolderResult As String()    '目录或者文件的数组
Dim MyTemp As String                 '字符串变量

'目录存在时才进行遍历
If Directory.Exists(strPath.Trim()) Then
        '只遍历strPath目录下的子目录
        If ChkFolder.Checked And Not ChkFile.Checked Then
                MyFolderResult = System.IO.Directory.GetDirectories(strPath)
        End If
        '只遍历strPath目录下的文件
        If Not ChkFolder.Checked And ChkFile.Checked Then
                MyFolderResult = System.IO.Directory.GetFiles(strPath)
        End If
        '遍历strPath目录下的子目录和文件
        If ChkFolder.Checked And ChkFile.Checked Then
                MyFolderResult = System.IO.Directory.GetFileSystemEntries(strPath)
        End If
 
        '访问数组,获得目录名或者文件名
         For Each MyTemp In MyFolderResult
                'MyTemp就是每个目录名或者文件名(包含全路径)。提供下载的程序代码中使用PublicFunction中的GetCurrentPathOrFile函数去除了前面的目录路径。
        Next

End If

三、在DataGrid中实现Table的Rowspan和Colspan

在DataGrid中有个ItemDataBound事件，在这个事件里面通过程序实现Table的Rowspan和Colspan

后台程序代码如下：
'只有是数据的时候才进行
If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
 
        Dim cell As New TableCell
        Dim cellother As New TableCell
        Dim Row As New TableRow

        '实现数据记录第1行第4列和第5列的列合并（注意：第1列是e.Item.Cells(0)）
        cell = e.Item.Cells(3)
        cellother = e.Item.Cells(4)
        'e.Item.ItemIndex = 0 代表第一行
        If e.Item.ItemIndex = 0 Then
                '将第4列设为跨2列
                cell.ColumnSpan = 2
                '将第5列删除
                cellother.Parent.Controls.Remove(cellother)
        End If

        '实现数据记录前3行数据第1列的行合并
        cell = e.Item.Cells(0)
        If e.Item.ItemIndex = 0 Then
                '将第1行第1列设为跨3行
                cell.RowSpan = 3
        ElseIf e.Item.ItemIndex < 3 Then
                '将第2行第1列以及第3行第1列删除
                cell.Parent.Controls.Remove(cell)
        End If
End If


以上3个例子程序文件的下载地址：http://files.cnblogs.com/tawny/NETExample.rar

将rar中的目录和文件copy到NETExample目录下，在Microsoft Visual Studio .NET 2003编辑器中将目录和文件包括到解决方案中，然后就可以运行了。

转载于:https://www.cnblogs.com/tawny/archive/2006/01/12/315631.html