|
Do While (i < numCols)
aColumnTextColumn = New DataGridColoredTextBoxColumn()
Dim rowindex As Integer = 0
For rowindex = 0 To dt.Rows.Count - 1
Dim StrSel As String
Dim MyForeCorol, MyBackCorol As Color
aColumnTextColumn.rowcollection.Add(rowindex)
If rowindex = CurrentRowindex Then
MyForeCorol = Color.White
MyBackCorol = Color.DarkSlateBlue
else
MyForeCorol = Color.DarkSlateBlue
MyBackCorol = Color.White
End If
ReDim Preserve aColumnTextColumn.ForeColor(aColumnTextColumn.rowcollection.Count)
ReDim Preserve aColumnTextColumn.BackColor(aColumnTextColumn.rowcollection.Count)
aColumnTextColumn.ForeColor(rowindex) = MyForeCorol
aColumnTextColumn.BackColor(rowindex) = MyBackCorol
Next
''''要更改列头名，请改下句的HeaderText值
aColumnTextColumn.HeaderText = dt.Columns(i).ColumnName
aColumnTextColumn.MappingName = dt.Columns(i).ColumnName
ts.GridColumnStyles.Add(aColumnTextColumn)
i = (i + 1)
Loop
DG.TableStyles.Add(ts)
End Sub
End Class
End Class
End Namespace
上一页 [1] [2] [3] [4] 下一页
[VB.NET程序]vb.net读写xml(2)--实现datagrid与xml的沟通（原创… [VB.NET程序]根据表格内容，自动调整VB.NET中Datagrid控件单元…
[VB.NET程序][原创]VB.net技巧之六------DataGrid模板列中的超… [VB.NET程序][原创]VB.net技巧之五------在DataGrid中显示图片
[VB.NET程序]vb.net2003中，利用datagrid更新数据(原创) [Delphi程序]Delphi中关于TApplication类的详解
[Web开发]用Javascript模仿DataGrid [Web开发]Binding a DataGrid to an ADO Recordset
[Web开发]动态的管理ASP.NET DataGrid数据列 [Web开发]ADO在vb.net中的使用（与datagrid结合）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
