|
|
设置DataGrid表格控件的列显示样式,例如设置列宽,表头等 |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
设置DataGrid表格控件的列显示样式,例如设置列宽,表头等。 代码示例: 假设使用数据库为SQL Server,数据库名为 Test,表 t_operator(operid,name) 本例中的DataGrid表格控件名称为DG
Imports System.Data.SqlClient …………
Private Sub SetDataGrid() Dim Tstyle As New DataGridTableStyle Dim DCstyle As DataGridColumnStyle
DCstyle = New DataGridTextBoxColumn '创建一个新列 With DCstyle .MappingName = "operid" ' 设置字段映射关系 .HeaderText = "编号" '设置表头显示字符 .Width = 75 '设置列宽 '如果要设置数值或日期的显示格可以设置Format属性,例如: .Format = "¥0.00" End With
Tstyle.GridColumnStyles.Add(DCstyle) DCstyle.Dispose() DCstyle = New DataGridTextBoxColumn
With DCstyle .MappingName = "name" .HeaderText = "姓名" .Width = 75 End With Tstyle.GridColumnStyles.Add(DCstyle) DCstyle.Dispose() Tstyle.GridColumnStyles.Add(DCstyle) Tstyle.MappingName = "t_operator" '设置映射表名 Tstyle.HeaderBackColor = Me.BackColor DG.TableStyles.Add(Tstyle) DCstyle.Dispose() Tstyle.Dispose() end Sub '在窗体启动时,调用SetDataGrid()函数来设置DataGrid表格控件的显示样式。调用RetData()函数来返回数据 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SetDataGrid() RetData() end sub
'在RetData()函数里,假设SQL服务器名为Yong,用户名为sa,密码为123456 Private Sub RetData() Dim Cn As New SqlConnection("server=yong;database=Test;uid=sa;pwd=123456;") Dim Cmd As SqlCommand Dim DA As SqlDataAdapter Dim DSet As DataSet
Try Cn.Open() Cmd = New SqlCommand Cmd.CommandText = "select operid,name from dbo.t_operator" Cmd.CommandType = CommandType.Text Cmd.Connection = Cn DA = New SqlDataAdapter(Cmd) DSet = New DataSet
DA.Fill(DSet) DSet.Tables(0).TableName = "t_operator" '设置表名,与SetDataGrid()函数里的映射表名是一致的 DG.DataSource = DSet.Tables(0) DSet.Dispose() DA.Dispose() Cmd.Dispose() Cn.Close() Catch ex As Exception MsgBox("连接数据库出错,原因如下:" & vbCrLf & ex.ToString, MsgBoxStyle.Critical) End Try Cn.Dispose() End Sub

|
|
相关文章:相关软件: |
|