.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
DataGrid合併行

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

    Private Sub UnitDataGridItem(ByVal intCell As Integer)
        Dim objDataGridItem As DataGridItem
        Dim strCell1 As String = ""
        Dim strCell2 As String = ""
        Dim objLiteralControl As LiteralControl
        Dim intSpan As Integer = 1
        Dim objDataGridItemToSpan As DataGridItem
        Dim i, j As Integer
        Dim strTemp As String
        For i = 0 To DataGrid1.Items.Count - 1
            intSpan = 1
            objLiteralControl = CType(DataGrid1.Items(i).Cells(intCell).Controls(0), LiteralControl)
            strCell1 = objLiteralControl.Text

            For j = i + 1 To DataGrid1.Items.Count - 1
                    objLiteralControl = CType(DataGrid1.Items(j).Cells(intCell).Controls(0), LiteralControl)
                    strCell2 = objLiteralControl.Text
                    If strCell1 = strCell2 Then 
                        intSpan += 1
                        DataGrid1.Items(i).Cells(intCell).RowSpan = intSpan
                        DataGrid1.Items(j).Cells(intCell).Visible = False
                    Else
                        Exit For
                    End If
                Next
                i = j - 1
        Next

    End Sub
除了設定RowSpan 外,還要把下面行的Visible 設成False,否則不起作用,底下會多出一個column.這個DataGrid的每個cell中都包含一個LiteralControl,如果沒有的話,就直接用DataGrid1.Items(i).Cells(intCell).Text即可.參數intCell ,是指要合併的那個列.




相关文章

相关软件