vb.net 中的Grid样式如何设置？
Dim dt As DataTable = New DataTable()
dt.Columns.Add("顺位")
dt.Columns.Add("贩卖金额")
dt.Columns.Add("送料")
dt.Columns.Add("数量")
dt.Columns.Add("GRP")
For i = 0 To count - 1
Dim grp As Integer = grdResult.Item(i, 4)
Dim chk As Boolean = False
Dim rowCount As Integer
Dim dtRows As Integer = dt.Rows.Count
If dtRows > 0 Then
For j = 0 To dt.Rows.Count - 1
If grp = CInt(dt.Rows(j)("GRP")) Then
chk = True
rowCount = j
End If
Next
End If
If chk = True Then
dt.Rows(rowCount)("贩卖金额") += CLng(grdResult.Item(i, 1))
dt.Rows(rowCount)("送料") += CLng(grdResult.Item(i, 2))
dt.Rows(rowCount)("数量") += CLng(grdResult.Item(i, 3))
Else
Dim r As DataRow
r = dt.NewRow
r("顺位") = (i + 1).ToString
r("贩卖金额") = CLng(grdResult.Item(i, 1))
r("送料") = CLng(grdResult.Item(i, 2))
r("数量") = CLng(grdResult.Item(i, 3))
r("GRP") = CLng(grdResult.Item(i, 4))
dt.Rows.Add(r)
End If
Next
grdResult.DataSource = dt.DefaultView
怎么设置数字靠右对齐?
问题点数：100、回复次数：3Top
1 楼lyw129（刘）回复于 2004-12-02 14:58:09 得分 0
就是列的格式Top
2 楼landlordh（work wonders）回复于 2004-12-02 15:22:03 得分 50
TableStyles中设:
'Dim ac As New DataGridTextBoxColumn
ac.Alignment=HorizontalAlignment.rightTop
3 楼earlsen（earlsen）回复于 2004-12-02 15:34:00 得分 50
在与数据源绑定的时候：
加上ac.Alignment=HorizontalAlignment.right
Top
