'-------- 变量定义 --------
Dim dtDataSource As New DataTable
Dim strText As String
Dim drgTB As New DataGridTextBoxColumn '创建DataGrid类型
Dim drgType As New DataGridTableStyle '创建Table类型
Dim drgColumn As DataGridColumnStyle '创建列类型
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.drgTest.DataSource = dtDataSource
End Sub
Private Sub AddColumn(ByVal pTyle As DataGridTextBoxColumn)
With pTyle
.MappingName = "CATEGORYNAME"
.NullText = String.Empty
.Width = 250
.Alignment = HorizontalAlignment.Left
.NullText = String.Empty
.ReadOnly = True
End With
End Sub
Public Sub CreatColumnsEvent()
Dim ts As New DataGridTableStyle
Dim DataGridTextBoxColumn1 As New DataGridTextBoxColumn
With ts
With .GridColumnStyles
.Add(DataGridTextBoxColumn1)
AddColumn(DataGridTextBoxColumn1)