<rt id="bn8ez"></rt>
<label id="bn8ez"></label>
  • 

    • <span id="bn8ez"></span>
    

    <label id="bn8ez"><meter id="bn8ez"></meter></label>
    

    
    

    




    







												


        




    
	
		
		
    

隨筆-94 
評(píng)論-56 
文章-3 
trackbacks-0

    
	

    

    
	
					


    
	
	
    對(duì)于下面的表格數(shù)據(jù)，我們經(jīng)常會(huì)見(jiàn)到，
    

    
    
        
    
            20090601
            00001
            100
            abc
            1
            sumisu
        
    
        
    
            20080601
            00001
            120
            abc
            1
            yasio
        
    
        
    
            20070601
            00001
            150
            def
            1
            toms
        
    
        
    
            20050601
            00001
            190
            efg
            1
            arabama
        
    
        

    

    

    
但有時(shí)候我們希望將同一列中內(nèi)容相同的單元格合并，變成下面這樣：
    

    
    
        
    
            20090601
            00001
            100
            abc
            1
            sumisu
        
    
        
    
            20080601
            120
            yasio
        
    
        
    
            20070601
            150
            def
            toms
        
    
        
    
            20050601
            190
            efg
            arabama
        
    
        

    

    
那么該如何實(shí)現(xiàn)呢？
    
在網(wǎng)上調(diào)查了很多方法，也請(qǐng)教了很多人，雖然有一些解決方法，但都不是最理想的。
    
偶爾下載到一個(gè)例子，很漂亮地實(shí)現(xiàn)了這個(gè)功能，不過(guò)是C#的，于是我花了不少時(shí)間，終于將她用VB.net實(shí)現(xiàn)了，在這里與各位分享。
    

    

    Imports System
    
    Imports System.Collections.Generic
    
    Imports System.ComponentModel
    
    Imports System.Data
    
    Imports System.Drawing
    
    Imports System.Drawing.Design
    
    Imports System.Text
    
    Imports System.Windows.Forms
    
    Imports System.Collections
    
    Imports System.Reflection
    
    Imports System.Runtime.InteropServices
    

    
    Public Class RowMergeView
    
        Inherits DataGridView
    

    
        Protected Overrides Sub OnCellPainting(ByVal e As DataGridViewCellPaintingEventArgs)
    

    
            If e.RowIndex > -1 And e.ColumnIndex > -1 Then
    
            DrawCell(e)
    
            End If
    

    
        End Sub
    

    
        '/ <summary>
    
        '/ DrawCell
    
        '/ </summary>
    
        '/ <param name="e"></param>
    
        Private Sub DrawCell(ByVal e As DataGridViewCellPaintingEventArgs)
    
            If e.CellStyle.Alignment = DataGridViewContentAlignment.NotSet Then
    
            e.CellStyle.Alignment     = DataGridViewContentAlignment.MiddleCenter
    
            End If
    
            Dim gridBrush As Brush = New SolidBrush(Me.GridColor)
    
            'Dim backBrush As SolidBrush = New SolidBrush(e.CellStyle.BackColor)
    
            Dim backBrush As SolidBrush = New SolidBrush(Color.White)
    
            Dim fontBrush As SolidBrush = New SolidBrush(e.CellStyle.ForeColor)
    
            Dim cellwidth As Integer
    
            Dim UpRows As Integer = 0
    
            Dim DownRows As Integer = 0
    
            Dim count As Integer = 0
    
            If Me.MergeColumnNames.Contains(Me.Columns(e.ColumnIndex).Name) And e.RowIndex <> -1 Then
    
            cellwidth     = e.CellBounds.Width
    
                Dim gridLinePen As Pen = New Pen(gridBrush)
    
                Dim curValue As String = CType(e.Value, String)
    
                IIf(curValue Is Nothing, "", e.Value.ToString().Trim())
    
                Dim curSelected As String = CType(Me.CurrentRow.Cells(e.ColumnIndex).Value, String)
    
                IIf(curSelected Is Nothing, "", Me.CurrentRow.Cells(e.ColumnIndex).Value.ToString().Trim())
    
                'If Not String.IsNullOrEmpty(curValue) Then
    
                Dim i As Integer
    
                For i = e.RowIndex To Me.Rows.Count - 1 Step i + 1
    
                    If Me.Rows(i).Cells(e.ColumnIndex).Value.ToString().Equals(curValue) Then
    

    
                    DownRows     = DownRows + 1
    
                        If e.RowIndex <> i Then
    
                        cellwidth     = cellwidth
    
                            IIf(cellwidth < Me.Rows(i).Cells(e.ColumnIndex).Size.Width, cellwidth, Me.Rows(i).Cells(e.ColumnIndex).Size.Width)
    
                        End If
    
                    Else
    
                        Exit For
    
                    End If
    
                Next
    

    
                Dim j As Integer
    
                For j = e.RowIndex To 0 Step j - 1
    
                    If Me.Rows(j).Cells(e.ColumnIndex).Value.ToString().Equals(curValue) Then
    

    
                    UpRows     = UpRows + 1
    
                        If e.RowIndex <> j Then
    
                        cellwidth     = cellwidth
    
                            IIf(cellwidth < Me.Rows(j).Cells(e.ColumnIndex).Size.Width, cellwidth, Me.Rows(j).Cells(e.ColumnIndex).Size.Width)
    
                        End If
    
                    Else
    
                        Exit For
    
                    End If
    
                Next
    

    
            count     = DownRows + UpRows - 1
    
                If count < 2 Then
    
                    Return
    
                End If
    
                'End If
    
                If Me.Rows(e.RowIndex).Selected Then
    
                backBrush.Color     = e.CellStyle.SelectionBackColor
    
                fontBrush.Color     = e.CellStyle.SelectionForeColor
    
                End If
    

    
            e.Graphics.FillRectangle(backBrush, e.CellBounds)
    

    
            PaintingFont(e, cellwidth, UpRows, DownRows, count)
    
                If DownRows = 1 Then
    
                e.Graphics.DrawLine(gridLinePen, e.CellBounds.Left, e.CellBounds.Bottom     - 1, e.CellBounds.Right - 1, e.CellBounds.Bottom - 1)
    
                count     = 0
    
                End If
    

    
            e.Graphics.DrawLine(gridLinePen, e.CellBounds.Right     - 1, e.CellBounds.Top, e.CellBounds.Right - 1, e.CellBounds.Bottom - 1)
    

    
            e.Handled     = True
    
            End If
    
        End Sub
    

    
        '/ <summary>
    
        '/ PaintingFont
    
        '/ </summary>
    
        Private Sub PaintingFont(ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs, ByVal cellwidth As Integer, ByVal UpRows As Integer, ByVal DownRows As Integer, ByVal count As Integer)
    
            Dim fontBrush As SolidBrush = New SolidBrush(e.CellStyle.ForeColor)
    
            Dim fontheight As Integer = CType(e.Graphics.MeasureString(e.Value.ToString(), e.CellStyle.Font).Height, Integer)
    
            Dim fontwidth As Integer = CType(e.Graphics.MeasureString(e.Value.ToString(), e.CellStyle.Font).Width, Integer)
    
            Dim cellheight As Integer = e.CellBounds.Height
    

    
            If e.CellStyle.Alignment = DataGridViewContentAlignment.BottomCenter Then
    
            e.Graphics.DrawString(    CType(e.Value, String), e.CellStyle.Font, fontBrush, CType(e.CellBounds.X + (cellwidth - fontwidth) / 2, Single), e.CellBounds.Y + cellheight * DownRows - fontheight)
    
            ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.BottomLeft Then
    
            e.Graphics.DrawString(    CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X, e.CellBounds.Y + cellheight * DownRows - fontheight)
    
            ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.BottomRight Then
    
            e.Graphics.DrawString(    CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X + cellwidth - fontwidth, e.CellBounds.Y + cellheight * DownRows - fontheight)
    
            ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter Then
    
            e.Graphics.DrawString(    CType(e.Value, String), e.CellStyle.Font, fontBrush, CType(e.CellBounds.X + (cellwidth - fontwidth) / 2, Single), CType(e.CellBounds.Y - cellheight * (UpRows - 1) + (cellheight * count - fontheight) / 2, Single))
    
            ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft Then
    
            e.Graphics.DrawString(    CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X, CType(e.CellBounds.Y - cellheight * (UpRows - 1) + (cellheight * count - fontheight) / 2, Single))
    
            ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleRight Then
    
            e.Graphics.DrawString(    CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X + cellwidth - fontwidth, CType(e.CellBounds.Y - cellheight * (UpRows - 1) + (cellheight * count - fontheight) / 2, Single))
    
            ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.TopCenter Then
    
            e.Graphics.DrawString(    CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X + CType((cellwidth - fontwidth) / 2, Single), e.CellBounds.Y - cellheight * (UpRows - 1))
    
            ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.TopLeft Then
    
            e.Graphics.DrawString(    CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X, e.CellBounds.Y - cellheight * (UpRows - 1))
    
            ElseIf e.CellStyle.Alignment = DataGridViewContentAlignment.TopRight Then
    
            e.Graphics.DrawString(    CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X + cellwidth - fontwidth, e.CellBounds.Y - cellheight * (UpRows - 1))
    
            Else
    
            e.Graphics.DrawString(    CType(e.Value, String), e.CellStyle.Font, fontBrush, e.CellBounds.X + CType((cellwidth - fontwidth) / 2, Single), CType(e.CellBounds.Y - cellheight * (UpRows - 1) + (cellheight * count - fontheight) / 2, Single))
    
            End If
    
        End Sub
    

    
        '/ <summary>
    
        '/ MergeColumnNames
    
        '/ </summary>
    
        Public Property MergeColumnNames() As List(Of String)
    
            Get
    
                Return _mergecolumnname
    
            End Get
    
            Set(ByVal Value As List(Of String))
    
            _mergecolumnname     = Value
    
            End Set
    
        End Property
    
        Private _mergecolumnname As List(Of String) = New List(Of String)()
    

    
    End Class
    

    

    

    Imports System
    
    Imports System.Collections.Generic
    
    Imports System.ComponentModel
    
    Imports System.Data
    
    Imports System.Drawing
    
    Imports System.Text
    
    Imports System.Windows.Forms
    

    

    
    Public Class Form1
    

    
        Public Sub New()
    
        InitializeComponent()
    
            Dim dt As DataTable = New DataTable()
    
            Dim i As Integer
    
        dt.Columns.Add(    "1")
    
        dt.Columns.Add(    "2")
    
        dt.Columns.Add(    "3")
    
        dt.Columns.Add(    "4")
    
        dt.Columns.Add(    "5")
    
        dt.Columns.Add(    "6")
    
        dt.Rows.Add(    "20090601", "00001", "100", "abc", "1", "sumisu")
    
        dt.Rows.Add(    "20080601", "00001", "120", "abc", "1", "yasio")
    
        dt.Rows.Add(    "20070601", "00001", "150", "def", "1", "toms")
    
        dt.Rows.Add(    "20050601", "00001", "190", "efg", "1", "arabama")
    
            Me.rowMergeView1.DataSource = dt
    
            Me.rowMergeView1.ColumnHeadersHeight = 20
    
            Me.rowMergeView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    
            For i = 1 To dt.Columns.Count
    
                Me.rowMergeView1.MergeColumnNames.Add("Column" & i)
    
            Next
    
        End Sub
    
    End Class
    

    

    

    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    
Partial     Class Form1
    
        Inherits System.Windows.Forms.Form
    

    
        'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
    
        <System.Diagnostics.DebuggerNonUserCode()> _
    
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    
            Try
    
                If disposing AndAlso components IsNot Nothing Then
    
                components.Dispose()
    
                End If
    
            Finally
    
                MyBase.Dispose(disposing)
    
            End Try
    
        End Sub
    

    
        'Windows フォーム デザイナで必要です。
    
        Private components As System.ComponentModel.IContainer
    

    
        'メモ: 以下のプロシージャは Windows フォーム デザイナで必要です。
    
        'Windows フォーム デザイナを使用して変更できます。  
    
        'コード エディタを使って変更しないでください。
    
        <System.Diagnostics.DebuggerStepThrough()> _
    
        Private Sub InitializeComponent()
    
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
    
            Me.Panel1 = New System.Windows.Forms.Panel
    
            Me.Button1 = New System.Windows.Forms.Button
    
            Me.rowMergeView1 = New testMearge.RowMergeView
    
            Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn
    
            Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn
    
            Me.Column3 = New System.Windows.Forms.DataGridViewTextBoxColumn
    
            Me.Column4 = New System.Windows.Forms.DataGridViewTextBoxColumn
    
            Me.Column5 = New System.Windows.Forms.DataGridViewTextBoxColumn
    
            Me.Column6 = New System.Windows.Forms.DataGridViewTextBoxColumn
    
            Me.Panel1.SuspendLayout()
    
            CType(Me.rowMergeView1, System.ComponentModel.ISupportInitialize).BeginInit()
    
            Me.SuspendLayout()
    
            '
    
            'Panel1
    
            '
    
            Me.Panel1.Controls.Add(Me.Button1)
    
            Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
    
            Me.Panel1.Location = New System.Drawing.Point(0, 312)
    
            Me.Panel1.Name = "Panel1"
    
            Me.Panel1.Size = New System.Drawing.Size(595, 31)
    
            Me.Panel1.TabIndex = 1
    
            '
    
            'Button1
    
            '
    
            Me.Button1.Location = New System.Drawing.Point(499, 5)
    
            Me.Button1.Name = "Button1"
    
            Me.Button1.Size = New System.Drawing.Size(75, 23)
    
            Me.Button1.TabIndex = 0
    
            Me.Button1.Text = "Button1"
    
            Me.Button1.UseVisualStyleBackColor = True
    
            '
    
            'rowMergeView1
    
            '
    
            Me.rowMergeView1.AllowUserToAddRows = False
    
            Me.rowMergeView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
    
            Me.rowMergeView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
    
            Me.rowMergeView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3, Me.Column4, Me.Column5, Me.Column6})
    
            Me.rowMergeView1.Dock = System.Windows.Forms.DockStyle.Fill
    
            Me.rowMergeView1.Location = New System.Drawing.Point(0, 0)
    
            Me.rowMergeView1.MergeColumnNames = CType(resources.GetObject("rowMergeView1.MergeColumnNames"), System.Collections.Generic.List(Of String))
    
            Me.rowMergeView1.Name = "rowMergeView1"
    
            Me.rowMergeView1.RowTemplate.Height = 21
    
            Me.rowMergeView1.Size = New System.Drawing.Size(595, 343)
    
            Me.rowMergeView1.TabIndex = 0
    
            '
    
            'Column1
    
            '
    
            Me.Column1.DataPropertyName = "1"
    
            Me.Column1.HeaderText = "日期"
    
            Me.Column1.Name = "Column1"
    
            '
    
            'Column2
    
            '
    
            Me.Column2.DataPropertyName = "2"
    
            Me.Column2.HeaderText = "代碼"
    
            Me.Column2.Name = "Column2"
    
            '
    
            'Column3
    
            '
    
            Me.Column3.DataPropertyName = "3"
    
            Me.Column3.HeaderText = "價(jià)格"
    
            Me.Column3.Name = "Column3"
    
            '
    
            'Column4
    
            '
    
            Me.Column4.DataPropertyName = "4"
    
            Me.Column4.HeaderText = "備注"
    
            Me.Column4.Name = "Column4"
    
            '
    
            'Column5
    
            '
    
            Me.Column5.DataPropertyName = "5"
    
            Me.Column5.HeaderText = "標(biāo)志"
    
            Me.Column5.Name = "Column5"
    
            '
    
            'Column6
    
            '
    
            Me.Column6.DataPropertyName = "6"
    
            Me.Column6.HeaderText = "更新者"
    
            Me.Column6.Name = "Column6"
    
            '
    
            'Form1
    
            '
    
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
    
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    
            Me.ClientSize = New System.Drawing.Size(595, 343)
    
            Me.Controls.Add(Me.Panel1)
    
            Me.Controls.Add(Me.rowMergeView1)
    
            Me.Name = "Form1"
    
            Me.Text = "Form1"
    
            Me.Panel1.ResumeLayout(False)
    
            CType(Me.rowMergeView1, System.ComponentModel.ISupportInitialize).EndInit()
    
            Me.ResumeLayout(False)
    

    
        End Sub
    
        Friend WithEvents rowMergeView1 As RowMergeView
    
        Friend WithEvents Panel1 As System.Windows.Forms.Panel
    
        Friend WithEvents Button1 As System.Windows.Forms.Button
    
        Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn
    
        Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn
    
        Friend WithEvents Column3 As System.Windows.Forms.DataGridViewTextBoxColumn
    
        Friend WithEvents Column4 As System.Windows.Forms.DataGridViewTextBoxColumn
    
        Friend WithEvents Column5 As System.Windows.Forms.DataGridViewTextBoxColumn
    
        Friend WithEvents Column6 As System.Windows.Forms.DataGridViewTextBoxColumn
    

    
    End Class
    

    

    
運(yùn)行結(jié)果如下：
    
 
    
原C#代碼：
    
/Files/xiekai-blog/DataGridView.rar

	
    posted on 2009-06-17 12:36 小言身寸 閱讀(12687) 評(píng)論(18)  編輯  收藏  所屬分類: . NET 開(kāi)發(fā) 
    

    







    
	    
    


    
評(píng)論:

    
	

		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2010-01-20 14:09 | JonesVale
    
				
    請(qǐng)問(wèn)以下代碼是如何所得 ,請(qǐng)指點(diǎn)，謝謝！

    '

            'rowMergeView1

            '

            Me.rowMergeView1.AllowUserToAddRows = False

            Me.rowMergeView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill

            Me.rowMergeView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize

            Me.rowMergeView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3, Me.Column4, Me.Column5, Me.Column6})

            Me.rowMergeView1.Dock = System.Windows.Forms.DockStyle.Fill

            Me.rowMergeView1.Location = New System.Drawing.Point(0, 0)

            Me.rowMergeView1.MergeColumnNames = CType(resources.GetObject("rowMergeView1.MergeColumnNames"), System.Collections.Generic.List(Of String))

            Me.rowMergeView1.Name = "rowMergeView1"

            Me.rowMergeView1.RowTemplate.Height = 21

            Me.rowMergeView1.Size = New System.Drawing.Size(595, 343)

            Me.rowMergeView1.TabIndex = 0

    

      回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2010-01-21 14:44 | JonesVale
    
				
    中心是這一句

    Me.rowMergeView1.MergeColumnNames = CType(resources.GetObject("rowMergeView1.MergeColumnNames"), System.Collections.Generic.List(Of String))

      回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2010-04-26 15:53 | youke
    
				
    以上代碼在vs2008中需要將and改為andalso  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2010-12-16 19:56 | pxfinal
    
				
    為什么我試了一下，總是顯示“為將對(duì)象引用到實(shí)例”，當(dāng)添加
      Me.RowMergeView1.MergeColumnNames.Add("Column" & i)這個(gè)時(shí)候

     Set(ByVal Value As Collection)
           _mergecolumnname = Value             ‘value=nothing
    End Set
    這樣就將這個(gè)屬性再次賦值為空了， 無(wú)法添加。  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2011-03-18 14:27 | xiekai
    
				
    你好可能把源碼發(fā)給我嗎？

    郵箱：niaiyaolong@163.com

    謝謝！  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2011-04-16 21:07 | xinbo
    
				
      Protected Overrides Sub OnCellPainting(ByVal e As DataGridViewCellPaintingEventArgs) ' 

    

            If e.RowIndex > -1 AndAlso e.ColumnIndex > -1 AndAlso e.Value IsNot Nothing（此處添加判斷） Then

                DrawCell(e)

            End If

    

        End Sub

    

    修改第二處：

    

     For i = e.RowIndex To Me.Rows.Count - 1 Step i + 1

                    If Me.Rows(i).Cells(e.ColumnIndex).Value Is Nothing Then

                        Exit For

                    End If    ‘添加一個(gè)判斷

                    If Me.Rows(i).Cells(e.ColumnIndex).Value.ToString().Equals(curValue) Then

    

                        DownRows = DownRows + 1

                        If e.RowIndex <> i Then

                            cellwidth = cellwidth

                            IIf(cellwidth < Me.Rows(i).Cells(e.ColumnIndex).Size.Width, cellwidth, Me.Rows(i).Cells(e.ColumnIndex).Size.Width)

                        End If

                    Else

                        Exit For

                    End If

                Next  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2011-05-10 16:50 | 阿胡
    
				
    你好！可發(fā)一份源碼給我嗎？非常感謝！

    nineheads@tom.com

      回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2011-05-23 16:49 | 阿伍
    
				
    你好，自學(xué)很久了始終不入門，能給份源碼。非常感謝！郵箱：443272678@QQ.com  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2011-06-12 18:23 | acicd
    
				
    你好可能把源碼發(fā)給我嗎？ 

    acicd@sohu.com  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并[未登錄](méi)
				2012-11-23 16:55 | KK
    
				
    請(qǐng)問(wèn)可以寄一份 VB 的源碼嗎?
    謝謝您~
    fwt0209@gmail.com  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2013-02-06 09:27 | icemna
    
				
    Me.RowMergeView1.MergeColumnNames = New List(Of String)
    For i = 1 To dt.Columns.Count
          Me.rowMergeView1.MergeColumnNames.Add("Column" & i)
    Next
    對(duì)MergeColumnNames賦值（Add）之前要實(shí)例化的。l
      回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2013-02-23 11:03 | 0514
    
				
    請(qǐng)問(wèn)可以寄一份 VB 的源碼嗎?

    謝謝您~

    郵箱：431093685@QQ.com    回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2013-07-08 12:32 | billycwy
    
				
    您好，請(qǐng)問(wèn)可以寄一份VB.net 的源碼嗎？
    萬(wàn)分感謝
    謝謝您了
    郵箱：8230220@qq.com  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2013-07-29 19:24 | 芙蓉妮
    
				
    期盼許久了......

    原先是用vb做的系統(tǒng)，無(wú)法實(shí)現(xiàn)單元格合并問(wèn)題，近期剛剛改學(xué)vb.net，看到樓主已經(jīng)實(shí)現(xiàn)了此功能我欣喜若狂，希望能拜讀到樓主的源碼，萬(wàn)分感謝

    frownies@139.com

      回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2013-10-30 17:10 | 112
    
				
    為什么我選中合并單元格的最后一行，合并單元格的內(nèi)容就會(huì)消失  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2013-11-09 14:10 | Surfing
    
				
    可以寄一份vb.net源碼給我嗎？
    ms101690@pchome.com.tw  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2014-11-18 11:08 | uyfghfv
    
				
    你好，可以寄一份源碼給我嗎？keobo.wang@deltaww.com.cn  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	
		
    
			
    
			# re: vb.net中dataGridView的單元格的合并
				2015-08-28 09:07 | ヒツ
    
				
    合并的單元格無(wú)法選中，如何解決，還有我想在合并的單元個(gè)里繪checkbox怎么弄  回復(fù)  更多評(píng)論
      
    
			
    
			
			
		
    
	








    








    

				

    







    







    
        
	



主站蜘蛛池模板：
免费福利视频导航|
久久久久久a亚洲欧洲AV|
亚洲熟妇无码一区二区三区
|
亚洲电影日韩精品|
亚洲成AV人影片在线观看|
免费看男女下面日出水来|
亚洲AV无码国产精品麻豆天美|
一级成人生活片免费看|
亚洲av日韩片在线观看|
国产天堂亚洲精品|
国产精品免费综合一区视频|
亚洲 欧洲 日韩 综合在线|
免费AA片少妇人AA片直播|
亚洲第一成年人网站|
午夜网站在线观看免费完整高清观看|
国产成人综合亚洲AV第一页|
一级做a爰片久久毛片免费看|
日本中文一区二区三区亚洲|
国产精品日本亚洲777|
国产精品免费看久久久无码|
激情婷婷成人亚洲综合|
国产精品高清全国免费观看|
亚洲日本va一区二区三区|
扒开双腿猛进入爽爽免费视频|
亚洲情A成黄在线观看动漫软件|
免费精品国产自产拍在|
久久乐国产综合亚洲精品|
亚洲精品动漫免费二区|
亚洲欧美熟妇综合久久久久|
四虎影视免费在线|
日韩亚洲翔田千里在线|
婷婷亚洲天堂影院|
国产精品99爱免费视频|
亚洲综合日韩久久成人AV|
中文精品人人永久免费|
亚洲精品无码高潮喷水在线|
国产免费一区二区视频|
久久精品a亚洲国产v高清不卡|
69式互添免费视频|
日本亚洲免费无线码|
免费国产a国产片高清网站|