Problem with DataGrid Formatting

[Newbie!]

Hi Group,

I`ve wrotesome code to format a datagrid with only the coloums I need.
However it won`t automatically open up my table format, It give me the
little + button, i click on that and its ok, how do i get it to
automatically open?

Ta
Si

I have the following code on my project:

Private Sub tbrMainMenu_But tonClick(ByVal sender As System.Object, ByVal e
As System.Windows. Forms.ToolBarBu ttonClickEventA rgs) Handles
tbrMainMenu.But tonClick
Select Case True
Case e.Button Is Me.tbbPasswordL ists
tpgExcellence.V isible = False
tpgPasswordList s.Visible = True
End Select

'Password Lists Table Mapping Start
Dim aGridTableStyle As New DataGridTableSt yle()
aGridTableStyle .MappingName = "mapPasswordLis ts"

Dim aCol1 As New DataGridTextBox Column()
Dim aCol2 As New DataGridTextBox Column()
Dim aCol3 As New DataGridTextBox Column()

With aCol1
.MappingName = "System"
.HeaderText = "System"
.Width = 20
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = True
End With

With aCol2
.MappingName = "Username"
.HeaderText = "Username"
.Width = 110
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = False
End With

With aCol3
.MappingName = "WebAddress "
.HeaderText = "WebAddress "
.Width = 110
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = True
End With

With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)

aGridTableStyle .MappingName = dsPasswordLists .Tables(0).Tabl eName
End With

odaPasswordList s.Fill(dsPasswo rdLists)
dgdPasswordList s.TableStyles.A dd(aGridTableSt yle)

If dsPasswordLists .Tables(0).Rows .Count > 0 Then
With dgdPasswordList s
.DataSource = dsPasswordLists .Tables(0)
.Expand(-0)
.NavigateTo(0, "PasswordListMi scellaneous")
End With
End If

[Cor]

Hi Newbie,

Can it have to do with this?

Expand = the number of the row to expand. If set to -1, all rows are
expanded.

Cor

.Expand(-0)

[Ken Tucker [MVP]]

Hi,

The NavigateTo method will move to a datarelation you have setup.
Which I dont see in your code. I would get rid of the navigateto and expand
lines.

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

Hi Group,

I`ve wrotesome code to format a datagrid with only the coloums I need.
However it won`t automatically open up my table format, It give me the
little + button, i click on that and its ok, how do i get it to
automatically open?

Ta
Si

I have the following code on my project:

Private Sub tbrMainMenu_But tonClick(ByVal sender As System.Object, ByVal e
As System.Windows. Forms.ToolBarBu ttonClickEventA rgs) Handles
tbrMainMenu.But tonClick
Select Case True
Case e.Button Is Me.tbbPasswordL ists
tpgExcellence.V isible = False
tpgPasswordList s.Visible = True
End Select

'Password Lists Table Mapping Start
Dim aGridTableStyle As New DataGridTableSt yle()
aGridTableStyle .MappingName = "mapPasswordLis ts"

Dim aCol1 As New DataGridTextBox Column()
Dim aCol2 As New DataGridTextBox Column()
Dim aCol3 As New DataGridTextBox Column()

With aCol1
.MappingName = "System"
.HeaderText = "System"
.Width = 20
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = True
End With

With aCol2
.MappingName = "Username"
.HeaderText = "Username"
.Width = 110
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = False
End With

With aCol3
.MappingName = "WebAddress "
.HeaderText = "WebAddress "
.Width = 110
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = True
End With

With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)

aGridTableStyle .MappingName = dsPasswordLists .Tables(0).Tabl eName
End With

odaPasswordList s.Fill(dsPasswo rdLists)
dgdPasswordList s.TableStyles.A dd(aGridTableSt yle)

If dsPasswordLists .Tables(0).Rows .Count > 0 Then
With dgdPasswordList s
.DataSource = dsPasswordLists .Tables(0)
.Expand(-0)
.NavigateTo(0, "PasswordListMi scellaneous")
End With
End If

[Newbie!]

Great Stuff it worked!

Cheers Guys
Si

"Ken Tucker [MVP]" <vb***@bellsout h.net> wrote in message
news:uV******** ********@TK2MSF TNGP11.phx.gbl. ..

Hi,

The NavigateTo method will move to a datarelation you have setup.
Which I dont see in your code. I would get rid of the navigateto and expand lines.

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

Hi Group,

I`ve wrotesome code to format a datagrid with only the coloums I need.
However it won`t automatically open up my table format, It give me the
little + button, i click on that and its ok, how do i get it to
automatically open?

Ta
Si

I have the following code on my project:

Private Sub tbrMainMenu_But tonClick(ByVal sender As System.Object, ByVal e As System.Windows. Forms.ToolBarBu ttonClickEventA rgs) Handles
tbrMainMenu.But tonClick
Select Case True
Case e.Button Is Me.tbbPasswordL ists
tpgExcellence.V isible = False
tpgPasswordList s.Visible = True
End Select

'Password Lists Table Mapping Start
Dim aGridTableStyle As New DataGridTableSt yle()
aGridTableStyle .MappingName = "mapPasswordLis ts"

Dim aCol1 As New DataGridTextBox Column()
Dim aCol2 As New DataGridTextBox Column()
Dim aCol3 As New DataGridTextBox Column()

With aCol1
.MappingName = "System"
.HeaderText = "System"
.Width = 20
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = True
End With

With aCol2
.MappingName = "Username"
.HeaderText = "Username"
.Width = 110
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = False
End With

With aCol3
.MappingName = "WebAddress "
.HeaderText = "WebAddress "
.Width = 110
.Alignment = HorizontalAlign ment.Left
.TextBox.Enable d = True
End With

With aGridTableStyle .GridColumnStyl es
.Add(aCol1)
.Add(aCol2)
.Add(aCol3)

aGridTableStyle .MappingName = dsPasswordLists .Tables(0).Tabl eName
End With

odaPasswordList s.Fill(dsPasswo rdLists)
dgdPasswordList s.TableStyles.A dd(aGridTableSt yle)

If dsPasswordLists .Tables(0).Rows .Count > 0 Then
With dgdPasswordList s
.DataSource = dsPasswordLists .Tables(0)
.Expand(-0)
.NavigateTo(0, "PasswordListMi scellaneous")
End With
End If