VB DataGrid控件

VB DataGrid控件列内容居中列标题居中

2010-05-13 18:49

1．列内容居中

示例代码1：

With DataGrid1

Set .DataSource = Adodc1.Recordset

.Refresh

'注：下面的“文本”和“数值”是指基本表中的字段类型。

'通用形式：文本左对齐，数值右对齐

.Columns(0).Alignment = dbgGeneral '数值右对齐

.Columns(1).Alignment = dbgGeneral '文本左对齐

'列内容居中

.Columns(2).Alignment = dbgCenter

'列内容右对齐

.Columns(3).Alignment = dbgRight

End With

2．列标题居中

示例代码2：

With DataGrid2

Set .DataSource = Adodc2.Recordset

.Refresh

With .Columns(1)

'设置列标题居中

'(1)中文字符标题居中

'.Caption = Space((.Width / 110 - Len("商品名称")) / 2) & "商品名称"

'“商品名称”为示例代码中要居中的列标题

'(2)西文字符标题居中

.Caption = Space((.Width / 95 - Len("smpc")) / 2) & "smpc"

'一个中文字符在VB中占110缇（DPI为96）

'一个西文字符在VB中占95缇（DPI为96时）

'.Width/110是columns(1).Width所容纳中文字符的个数

'.Width/95是columns(1).Width所容纳西文字符的个数

End With

End With

MSHFlexGrid2

For i = 1 To Adodc1.Recordset.RecordCount

Me.MSHFlexGrid2.FormatString = " |PROD_ID|OPNAME|V ALUE|DATATYPE|RESULT " MSHFlexGrid2.Rows = i + 1 MSHFlexGrid2.TextMatrix(i, 1) = MSHFlexGrid1.TextMatrix(i, 2) MSHFlexGrid2.TextMatrix(i, 2) = MSHFlexGrid1.TextMatrix(i, 3)

MSHFlexGrid2.TextMatrix(i, 3) = MSHFlexGrid1.TextMatrix(i, 9)

MSHFlexGrid2.TextMatrix(i, 4) = MSHFlexGrid1.TextMatrix(i, 8)

Adodc2.ConnectionString = "driver={SQL Server};" & "server=user-PC;uid=sa;pwd=lenovo;database=nc863db"

Adodc2.RecordSource = "select substring(" & Text3.Text & "," & Text4.Text & "," & Text5.Text & ") from p_map where progressive= '" & Text1.Text & "'"

要将Adodc2的值依次赋给MSHFlexGrid2.TextMatrix(i, 5)这列咋作呢？