DataGrid动态绑定数据库，可以 改表头名/隐藏某些表头/改表头宽度 吗

[luoyiming]

DataGrid动态绑定数据库，可以 改表头名/隐藏某些表头/改表头宽度 吗

[faysky2]

改表头可以在设计的时候直接设置好，后者查询的时候用别名来代替也行：
select mTime As 时间 from table1
或
select mTime 时间 from table1
都可以

[faysky2]

隐藏某些表头
-----
这个我不会，不过可以只查询部分字段,显示到DataGrid就行了，select field1,field2,field3 from table1

[lsftest]

都可以在DataGrid的属性里动态设置。。。。

[lsftest]

隐藏某些表头
=============================
DataGrid1.Column(1).visible=false

[上官云峰]

你试试吧，好用的
记得要引用ado

Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
'strsql 是你的查询语句 你可以order by 排序的字段
'strsql="select id as ID,xh as 学号 from 表" 这里的学号就是你数据表中字段的标题
strsql="select 字段 from 表"
Set Db = New Connection
Db.CursorLocation = adUseClient
'下面的连接数据字符串你要修改一下
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
'下面的代码就将ID隐藏掉了
DataGrid1.Column(0).visible=false
end sub

[of123]

当然可以。你可以对表格的布局全部刷新：
DataGrid1.ClearFields

如果你不设置布局，则控件显示新记录集的全部列。

如果你人为控制，可以如下(注意，缺省的 2 列，是 DataGrid1.Columns(0) 和 DataGrid1.Columns(1)，你可以设置其表头、宽度和绑定字段。以下是添加的列）：

Dim c As Column

Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)
With c
.Visible = True
.Width = 1000
.Caption = "产品名称"
.DataField = Adodc1.Recordset.Fields("ProductName").Name
.Alignment = dbgRight
End With

[leckylee]

右击datagrid，选编辑，就可以在表头的边上用鼠标直接调
右击datagrid，选属性，找列，有俩文本框，上面写你的那中文名，下面写你将要连接的表相应的列名，你试试