数据网格列标题 [英] Data Grid Column Headers

问题描述

我正在尝试命名数据网格中的列。在VB6中它

是一行代码：

Datagrid1.columns（0）.caption =" Item"


我似乎无法让它工作......以下是在VB.NET中使用的代码我是
。然而，它并没有命名列标题。


strsql =" select [from [Action] where item_identifier ="

& Val（TextBox5.Text）& "通过

action_current_status_date desc"

''创建数据适配器对象

Dim daAction作为OleDbDataAdapter = New

OleDbDataAdapter （strsql，CriticalParts.conn）


''使用

数据适配器'的填充方法创建数据集对象并填充数据

Dim dsAction As DataSet = New DataSet

daAction.Fill（dsAction，" Action"）

Dim dvAction As DataView = dsAction.Tables

（行动）。DefaultView

DataGrid1.DataSource = dvAction

DataGrid1.Visible = True


昏暗dgts As DataGridTableStyle = New

DataGridTableStyle

dgts.GridColumnStyles.Add（New

DataGridTextBoxColumn）

dgts.GridColumnStyles .Item（0）.MappingName

=" item_identifier"

dgts.GridColumnStyles.Item（0）.HeaderText =" Item"

>
感谢您的帮助。

Elena

I am trying to name the columns in my datagrid. In VB6 it
was one line of code:
Datagrid1.columns(0).caption = "Item"

I cannot seem to get this to work... Below is the code I''m
using in VB.NET. Yet, it''s not naming the Column Header.

strsql = "Select * from [Action] where item_identifier = "
& Val(TextBox5.Text) & " order by
action_current_status_date desc"
'' Create data adapter object
Dim daAction As OleDbDataAdapter = New
OleDbDataAdapter(strsql, CriticalParts.conn)

'' Create a dataset object and fill with data using
data adapter''s Fill method
Dim dsAction As DataSet = New DataSet
daAction.Fill(dsAction, "Action")
Dim dvAction As DataView = dsAction.Tables
("Action").DefaultView
DataGrid1.DataSource = dvAction
DataGrid1.Visible = True

Dim dgts As DataGridTableStyle = New
DataGridTableStyle
dgts.GridColumnStyles.Add(New
DataGridTextBoxColumn)
dgts.GridColumnStyles.Item(0).MappingName
= "item_identifier"
dgts.GridColumnStyles.Item(0).HeaderText = "Item"

Thanks for the Help.
Elena

推荐答案

记得为你设置DataGrid1.ColumnHeaderVisible = True


OHM＃


Elena写道：

Remember to set you DataGrid1.ColumnHeaderVisible = True

OHM#

Elena wrote:

我试图在我的数据网格中命名列。在VB6中它是一行代码：
Datagrid1.columns（0）.caption =" Item"

我似乎无法让它工作......下面是我在VB.NET中使用的代码。然而，它并没有命名列标题。

strsql ="从[Action]中选择*其中item_identifier ="
& Val（TextBox5.Text）& "命令
action_current_status_date desc"
''创建数据适配器对象
Dim daAction As OleDbDataAdapter = New
OleDbDataAdapter（strsql，CriticalParts.conn）

' '使用数据适配器的填充方法创建数据集对象并填充数据
Dim dsAction As DataSet = New DataSet
daAction.Fill（dsAction，Action）
Dim dvAction As DataView = dsAction.Tables
（" Action"）。DefaultView
DataGrid1.DataSource = dvAction
DataGrid1.Visible = True

Dim dgts As DataGridTableStyle = New
DataGridTableStyle
dgts.GridColumnStyles.Add（New
DataGridTextBoxColumn）
dgts.GridColumnStyles.Item（0）.MappingName
=" item_identifier"
dgts.GridColumnStyles.Item（0）.HeaderText =" Item"

感谢您的帮助。
Elena

I am trying to name the columns in my datagrid. In VB6 it
was one line of code:
Datagrid1.columns(0).caption = "Item"

I cannot seem to get this to work... Below is the code I''m
using in VB.NET. Yet, it''s not naming the Column Header.

strsql = "Select * from [Action] where item_identifier = "
& Val(TextBox5.Text) & " order by
action_current_status_date desc"
'' Create data adapter object
Dim daAction As OleDbDataAdapter = New
OleDbDataAdapter(strsql, CriticalParts.conn)

'' Create a dataset object and fill with data using
data adapter''s Fill method
Dim dsAction As DataSet = New DataSet
daAction.Fill(dsAction, "Action")
Dim dvAction As DataView = dsAction.Tables
("Action").DefaultView
DataGrid1.DataSource = dvAction
DataGrid1.Visible = True

Dim dgts As DataGridTableStyle = New
DataGridTableStyle
dgts.GridColumnStyles.Add(New
DataGridTextBoxColumn)
dgts.GridColumnStyles.Item(0).MappingName
= "item_identifier"
dgts.GridColumnStyles.Item(0).HeaderText = "Item"

Thanks for the Help.
Elena

问候 - OHM＃在********** @ BTInternet.com

嗨Elena，


我想我不赞成你，这必须在最后。


datagrid1.TableStyles.Clear（）

datagrid1.TableStyles.Add（dgts）

datagrid1.Refresh（）


尝试，我听到了吗？


Cor

Hi Elena,

I think I did not suply you this, that has to be on the end.

datagrid1.TableStyles.Clear()
datagrid1.TableStyles.Add(dgts)
datagrid1.Refresh()

Try and I hear?

Cor

仍然没有做任何事情。


Elena

Still not doing anything.

Elena

-----原帖-----
嗨Elena，

我想我没有给你这个，这必须在
结束。
datagrid1.TableStyles.Clear（）
datagrid1.TableStyles.Add（dgts）
datagrid1.Refresh（）

尝试，我听到了吗？


。

-----Original Message-----
Hi Elena,

I think I did not suply you this, that has to be on the end.
datagrid1.TableStyles.Clear()
datagrid1.TableStyles.Add(dgts)
datagrid1.Refresh()

Try and I hear?

Cor
.

这篇关于数据网格列标题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！