|
|
|
|
设置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
|
|
相关文章：相关软件： |
|
本类阅读TOP10