Please Help im going Crazy on this one

[Newbie!]

Hi Group,

Im trying to Format some coloums on my Datagrid so that only 3 Coloums are
show out of the 20 in my Dataset, I just carn`t for the life of me get it to
work, i`ve looked everywhere for info but with no joy. Does anybody have any
example code links? or even better project links? here is my following Code
if anybody can help me with this please

Many thanks
Si

Private Sub frmContracts_Lo ad(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
If odcContracts.St ate <> ConnectionState .Open Then odcContracts.Op en()
odaContracts.Fi ll(dsContracts)
Dim aGridTableStyle As New DataGridTableSt yle()
aGridTableStyle .MappingName = "mapcontrac ts"
Dim aCol1 As New DataGridTextBox Column()
Dim aCol2 As New DataGridTextBox Column()
Dim aCol3 As New DataGridTextBox Column()
With aCol1
.MappingName = "ID"
.Width = 0
End With
With aCol2
.MappingName = "Contact"
.HeaderText = "Contact"
.Width = 65
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = False
End With
With aCol3
.. MappingName = "Company"
.HeaderText = "Company"
.Width = 50
.Alignment = HorizontalAlign ment.Center
.NullText = ""
.TextBox.Enable d = True
End With
With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)
End With
dgdContracts.Ta bleStyles.Add(a GridTableStyle)
If dsContracts.Tab les(0).Rows.Cou nt > 0 Then
With dgdContracts
.DataSource = dsContracts.Tab les(0)
.Expand(-1)
.NavigateTo(0, "Contracts" )
End With
End If
End Sub

[Cor]

Hi Newbie,

I do not see direct errors.

Maybe I oversee it also, but some things I cannot see.
The membernames, are they in the right cases?

What I see in the code but that has nothing to do with the problem is this

If odcContracts.St ate <> ConnectionState .Open Then odcContracts.Op en()
The dataAdapter opens himself a connection when it is not open, so that one
is not necessary.
odaContracts.Fi ll(dsContracts)

I hope this helps a very little bit?

Cor

[Ken Tucker [MVP]]

Hi,

Before you add the tablestyle to the grid you need to set its
mapping name.

With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)
.MappingName = dsContracts.Tab les(0).TableNam e
End With
Ken
---------------------
"Newbie!" <s_************ @yahoo.co.uk> wrote in message
news:O0******** ************@ka roo.co.uk...

Hi Group,

Im trying to Format some coloums on my Datagrid so that only 3 Coloums are
show out of the 20 in my Dataset, I just carn`t for the life of me get it
to
work, i`ve looked everywhere for info but with no joy. Does anybody have
any
example code links? or even better project links? here is my following
Code
if anybody can help me with this please

Many thanks
Si

Private Sub frmContracts_Lo ad(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
If odcContracts.St ate <> ConnectionState .Open Then odcContracts.Op en()
odaContracts.Fi ll(dsContracts)
Dim aGridTableStyle As New DataGridTableSt yle()
aGridTableStyle .MappingName = "mapcontrac ts"
Dim aCol1 As New DataGridTextBox Column()
Dim aCol2 As New DataGridTextBox Column()
Dim aCol3 As New DataGridTextBox Column()
With aCol1
.MappingName = "ID"
.Width = 0
End With
With aCol2
.MappingName = "Contact"
.HeaderText = "Contact"
.Width = 65
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = False
End With
With aCol3
. MappingName = "Company"
.HeaderText = "Company"
.Width = 50
.Alignment = HorizontalAlign ment.Center
.NullText = ""
.TextBox.Enable d = True
End With
With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)
End With
dgdContracts.Ta bleStyles.Add(a GridTableStyle)
If dsContracts.Tab les(0).Rows.Cou nt > 0 Then
With dgdContracts
.DataSource = dsContracts.Tab les(0)
.Expand(-1)
.NavigateTo(0, "Contracts" )
End With
End If
End Sub

[Newbie!]

Thanks for your reply,
When i add:

..MappingName = dsContracts.Tab les(0).TableNam e

I get an error saying D:\Excellence.N ET\Contracts.vb (462): 'MappingName' is
not a member of 'System.Windows .Forms.GridColu mnStylesCollect ion'.

I guess i need to add something else but i don`t know what

Thanks again for you help so far,

Ta
Si

"Ken Tucker [MVP]" <vb***@bellsout h.net> wrote in message
news:uh******** *******@TK2MSFT NGP11.phx.gbl.. .

Hi,

Before you add the tablestyle to the grid you need to set its
mapping name.

With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)
.MappingName = dsContracts.Tab les(0).TableNam e
End With
Ken
---------------------
"Newbie!" <s_************ @yahoo.co.uk> wrote in message
news:O0******** ************@ka roo.co.uk...

Hi Group,

Im trying to Format some coloums on my Datagrid so that only 3 Coloums are show out of the 20 in my Dataset, I just carn`t for the life of me get it to
work, i`ve looked everywhere for info but with no joy. Does anybody have
any
example code links? or even better project links? here is my following
Code
if anybody can help me with this please

Many thanks
Si

Private Sub frmContracts_Lo ad(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
If odcContracts.St ate <> ConnectionState .Open Then odcContracts.Op en() odaContracts.Fi ll(dsContracts)
Dim aGridTableStyle As New DataGridTableSt yle()
aGridTableStyle .MappingName = "mapcontrac ts"
Dim aCol1 As New DataGridTextBox Column()
Dim aCol2 As New DataGridTextBox Column()
Dim aCol3 As New DataGridTextBox Column()
With aCol1
.MappingName = "ID"
.Width = 0
End With
With aCol2
.MappingName = "Contact"
.HeaderText = "Contact"
.Width = 65
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = False
End With
With aCol3
. MappingName = "Company"
.HeaderText = "Company"
.Width = 50
.Alignment = HorizontalAlign ment.Center
.NullText = ""
.TextBox.Enable d = True
End With
With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)
End With
dgdContracts.Ta bleStyles.Add(a GridTableStyle)
If dsContracts.Tab les(0).Rows.Cou nt > 0 Then
With dgdContracts
.DataSource = dsContracts.Tab les(0)
.Expand(-1)
.NavigateTo(0, "Contracts" )
End With
End If
End Sub

[Newbie!]

I`ve sorted it it needed aGridTableStyle .MappingName

Judt gotta get the colour working now:(

Cheers For all you help
Ta
Si

"Newbie!" <s_************ @yahoo.co.uk> wrote in message
news:-k************** ******@karoo.co .uk...

Thanks for your reply,
When i add:

.MappingName = dsContracts.Tab les(0).TableNam e

I get an error saying D:\Excellence.N ET\Contracts.vb (462): 'MappingName' is not a member of 'System.Windows .Forms.GridColu mnStylesCollect ion'.

I guess i need to add something else but i don`t know what

Thanks again for you help so far,

Ta
Si

"Ken Tucker [MVP]" <vb***@bellsout h.net> wrote in message
news:uh******** *******@TK2MSFT NGP11.phx.gbl.. .

Hi,

Before you add the tablestyle to the grid you need to set its
mapping name.

With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)
.MappingName = dsContracts.Tab les(0).TableNam e
End With
Ken
---------------------
"Newbie!" <s_************ @yahoo.co.uk> wrote in message
news:O0******** ************@ka roo.co.uk...

Hi Group,

Im trying to Format some coloums on my Datagrid so that only 3 Coloums are show out of the 20 in my Dataset, I just carn`t for the life of me get it to
work, i`ve looked everywhere for info but with no joy. Does anybody have any
example code links? or even better project links? here is my following
Code
if anybody can help me with this please

Many thanks
Si

Private Sub frmContracts_Lo ad(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
If odcContracts.St ate <> ConnectionState .Open Then odcContracts.Op en() odaContracts.Fi ll(dsContracts)
Dim aGridTableStyle As New DataGridTableSt yle()
aGridTableStyle .MappingName = "mapcontrac ts"
Dim aCol1 As New DataGridTextBox Column()
Dim aCol2 As New DataGridTextBox Column()
Dim aCol3 As New DataGridTextBox Column()
With aCol1
.MappingName = "ID"
.Width = 0
End With
With aCol2
.MappingName = "Contact"
.HeaderText = "Contact"
.Width = 65
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = False
End With
With aCol3
. MappingName = "Company"
.HeaderText = "Company"
.Width = 50
.Alignment = HorizontalAlign ment.Center
.NullText = ""
.TextBox.Enable d = True
End With
With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)
End With
dgdContracts.Ta bleStyles.Add(a GridTableStyle)
If dsContracts.Tab les(0).Rows.Cou nt > 0 Then
With dgdContracts
.DataSource = dsContracts.Tab les(0)
.Expand(-1)
.NavigateTo(0, "Contracts" )
End With
End If
End Sub

[Dominique Vandensteen]

better than col.width = 0

table.Columns(x xxx).ColumnMapp ing = MappingType.Hid den
Dominique

"Newbie!" <s_************ @yahoo.co.uk> wrote in message
news:O0******** ************@ka roo.co.uk...

Hi Group,

Im trying to Format some coloums on my Datagrid so that only 3 Coloums are
show out of the 20 in my Dataset, I just carn`t for the life of me get it to work, i`ve looked everywhere for info but with no joy. Does anybody have any example code links? or even better project links? here is my following Code if anybody can help me with this please

Many thanks
Si

Private Sub frmContracts_Lo ad(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
If odcContracts.St ate <> ConnectionState .Open Then odcContracts.Op en()
odaContracts.Fi ll(dsContracts)
Dim aGridTableStyle As New DataGridTableSt yle()
aGridTableStyle .MappingName = "mapcontrac ts"
Dim aCol1 As New DataGridTextBox Column()
Dim aCol2 As New DataGridTextBox Column()
Dim aCol3 As New DataGridTextBox Column()
With aCol1
.MappingName = "ID"
.Width = 0
End With
With aCol2
.MappingName = "Contact"
.HeaderText = "Contact"
.Width = 65
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = False
End With
With aCol3
. MappingName = "Company"
.HeaderText = "Company"
.Width = 50
.Alignment = HorizontalAlign ment.Center
.NullText = ""
.TextBox.Enable d = True
End With
With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)
End With
dgdContracts.Ta bleStyles.Add(a GridTableStyle)
If dsContracts.Tab les(0).Rows.Cou nt > 0 Then
With dgdContracts
.DataSource = dsContracts.Tab les(0)
.Expand(-1)
.NavigateTo(0, "Contracts" )
End With
End If
End Sub