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

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有