在TABLESTYLE存在的情况下,如何设置标题行的高度和字符串型的数字的正常显示?
WINFORM,DATAGRID
1, 如何设置标题行的高度?我在表中用了tablestyle,但没找到设置标题行高的属性;DATAGRID里也没看到相关的属性.
2, 如何设置每行中,字符串型的数字的正常显示?
比如,
... DataGridTableStyle
...
dim x as DataGridTextBoxColumn
x.MappingName = "amount"("amount"是一个string型的字段,但都是数字)
x.Format = "N"
我想把字符型的数字按 123,456,789格式显示,我看到MSDN中说,N为数字形式的显示,但这样设置了,没有变化,数字还是没有分隔符的列出来,123456789, 究竟该怎么办?
谢谢了!
问题点数：0、回复次数：3Top
1 楼hamadou（闵峰--为了理想而奋斗）回复于 2005-04-01 15:45:01 得分 0
Sqldpr.Fill(Ds1.emp)
DataGrid1.DataSource = Ds1.emp
Dim style As New DataGridTableStyle()
style.MappingName = "emp"
Dim c1 As New DataGridTextBoxColumn()
Dim c2 As New DataGridTextBoxColumn()
Dim c3 As New DataGridTextBoxColumn()
Dim c4 As New DataGridTextBoxColumn()
Dim c5 As New DataGridTextBoxColumn()
c1.MappingName = "id"
c2.MappingName = "name"
c3.MappingName = "sex"
c4.MappingName = "address"
c5.MappingName = "salary"
c1.HeaderText = "编号"
c2.HeaderText = "姓名"
c3.HeaderText = "性别"
c4.HeaderText = "地址"
c5.HeaderText = "工资"
c5.Format = "N"
style.GridColumnStyles.Add(c1)
style.GridColumnStyles.Add(c2)
style.GridColumnStyles.Add(c3)
style.GridColumnStyles.Add(c4)
style.GridColumnStyles.Add(c5)
Me.DataGrid1.TableStyles.Add(style)Top
2 楼tlcd（）回复于 2005-04-01 18:17:06 得分 0
不行啊，哥们你写的和我写的是一样的阿。Top
3 楼wqjch（阿泥）回复于 2005-04-01 21:43:05 得分 0
Private Sub CalcColumns()
Dim emp As New DataTable
Dim style As New DataGridTableStyle
emp.Columns.Add("c1", GetType(String))
emp.Columns.Add("c2", GetType(Single))
ConstructTxtCell("C", "c1", style)
ConstructTxtCell("CC", "c2", style, , , "N")
style.MappingName = emp.TableName
DataGrid1.TableStyles.Add(style)
DataGrid1.DataSource = emp
End Sub
Public Function ConstructTxtCell(ByVal vCaption As String, ByVal vFieldName As String, ByRef pDgStyle As DataGridTableStyle, Optional ByVal vWidth As Integer = -1, Optional ByVal vReadOnly As Boolean = False, Optional ByVal vFormat As String = "-1") As DataGridTextBoxColumn
Dim dgTxtCell As New DataGridTextBoxColumn
With dgTxtCell
.HeaderText = vCaption
.MappingName = vFieldName
.NullText = ""
.ReadOnly = vReadOnly
If vWidth <> -1 Then
.Width = vWidth
End If
If vFormat <> "-1" Then
.Format = vFormat
End If
End With
pDgStyle.GridColumnStyles.Add(dgTxtCell)
Return dgTxtCell
End Function
我试过了，可以的
Top
