标题: VBS怎么判断表元是合并表元？ [打印本页] 作者: FLY000 时间: 2009-7-24 12:13 标题: VBS怎么判断表元是合并表元？ VBS怎么判断表元是合并表元？作者: drx2008 时间: 2009-7-24 12:19 标题: 我搜的，看能不能给你提个醒 我最近写的DataGrid合并/删除相同列通用函数，跟大家分享 鉴于相当多页面都要做合并列，我最近写了DataGrid合并/删除相同列通用函数，跟大家分享。
Public Shared Sub DBGridSpanCell(ByRef dgdData As DataGrid, _
ByVal intColumnItem As Integer, _
ByVal intColumnStart As Integer, _
ByVal intColumnEnd As Integer, _
Optional ByVal intSpan As Integer = 2)
'名称：DBGridSpanCell
'功能：合并/删除相同的项目名
'作者：dzt
'创建：2004/1/1
'修改：2004/1/1
'参数：dgdData：DataGrid对象
' intColumnItem：要合并列
' intColumnStart：合并起始列
' intColumnEnd：合并结束列
' intSpan：跨行数
'返回：成功，True，反之，False
'说明：
Dim i As Integer
Dim o_intCols As Integer
Dim iSpan As Integer = intSpan '跨行数
Dim iRow As Integer = 0 '开始的跨行
Dim sItem As String
Dim sColumnText As String
Dim ColumnType As Type
Dim ctl As System.Web.UI.Control
With dgdData.Items
For i = 0 To .Count - 1
With .Item(i)
ColumnType = dgdData.Columns(intColumnItem).GetType
'模板列,label
If ColumnType Is GetType(TemplateColumn) Then
For Each ctl In dgdData.Items(i).Cells(intColumnItem).Controls
If ctl.GetType Is GetType(Label) Then
sColumnText = CType(ctl, Label).Text
Exit For
End If
Next
Else
sColumnText = .Cells(intColumnItem).Text
End If
' If .Cells(intColumnItem).Text = sItem Then
If sColumnText = sItem Then
For o_intCols = intColumnStart To intColumnEnd
dgdData.Items(iRow).Cells(o_intCols).RowSpan = iSpan
.Cells(o_intCols).Visible = False
Next
iSpan += 1
Else
iRow = i
iSpan = intSpan
'sItem = .Cells(intColumnItem).Text
sItem = sColumnText
End If
End With
Next
End With
End Sub作者: sunhope800 时间: 2009-8-11 16:30
学习，学习