[NET.VB]小问题集锦(供初学者参考)

Dim blnCol As New DataGridBoolColumn
With blnCol
.MappingName = mColumnInfo(i).Name
.HeaderText = mColumnInfo(i).Name
.Width = mColumnInfo(i).ColumnWidth(mDataGrid)
.NullText = ""
End With
ts.GridColumnStyles.Add(blnCol)
Else
''''非Boolean字段
Dim TxtCol As New DataGridTextBoxColumn
With TxtCol
.MappingName = mColumnInfo(i).Name
.HeaderText = mColumnInfo(i).Name
.Width = mColumnInfo(i).ColumnWidth(mDataGrid)
.NullText = ""
.ReadOnly = False ''''这里可以设置为只读
.Format = "" ''''这里可以设置显示格式，要显示日时分秒的就在这设
End With
ts.GridColumnStyles.Add(TxtCol)
End If
Next

mDataGrid.TableStyles.Clear()
mDataGrid.TableStyles.Add(ts)
''''至于其它的功能，比如绑定事件之类的，后面再补充
End Sub
　

''''调用
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MakeDataGridAutoExtend(Me.DataGrid1)
End Sub

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!