DevTrain Forum - Datagrid formatieren

Forum: VB.NET | Thema: Datagrid formatieren | Von: Ralf Ziola ( 22.04.2005 10:12)

		Hallo,
ich habe den untenstehenden Code hier gefunden.
Sieht auch gut und relativ einfach aus.
Ich habe diesen bei mir eingebaut.
Doch diese routine findet nichts in "t".

daraufhin habe ich Dim dsSYSXTA As New DataSet("SYSXTA") öffentlich gemacht (untern den windesigned code)

Hier wird mein DATAGRID gefüllt:  

sub erneuern()
Dim strSQL As String = "SELECT RECNUM, WERT1 from sysxta where wert1 like '%srv%' or wert1 like '%SRV%'"

        Dim cmd As New OleDbCommand(strSQL, con)
        cmd.CommandText = strSQL

        Dim daSYSXTA As New OleDbDataAdapter(strSQL, con)
        Dim dsSYSXTA As New DataSet("SYSXTA")
        dsSYSXTA.Clear()
        daSYSXTA.Fill(dsSYSXTA)
        ergebnis = Split(dsSYSXTA.Tables(0).Rows(0).Item(1), "\")
        txtAlterWert.Text = ergebnis(2)
        DataGrid1.DataSource = dsSYSXTA.Tables(0)

        dsSYSXTA.Clear()

        strSQL = "SELECT RECNUM, WERT1 from sysxta where wert1 like '%srv%' or wert1 like '%SRV%'"
        cmd.CommandText = strSQL
        If cmd.Connection.State = ConnectionState.Closed Then cmd.Connection.Open()
        cmd.ExecuteNonQuery()
        cmd.Connection.Close()
        daSYSXTA.Fill(dsSYSXTA)
        DataGrid1.Update()
        DataGrid1.DataSource = dsSYSXTA.Tables(0)
        FormatGrid()
end sub

----schnipp----
Private Sub FormatGrid()
        Dim t As DataTable
        For Each t In dsSYSXTA.Tables
            Dim myGridTableStyle As DataGridTableStyle = New DataGridTableStyle
            myGridTableStyle.MappingName = t.TableName
            Me.DataGrid1.TableStyles.Add(myGridTableStyle)
            ' Note that DataGridColumnStyle objects will
            ' be created automatically for the first DataGridTableStyle
            ' when you add it to the GridTableStylesCollection.*/
        Next

        Dim myGridStyle As DataGridTableStyle
        Dim myColumnStyle As DataGridColumnStyle

        For Each myGridStyle In Me.DataGrid1.TableStyles
            'MsgBox(myGridStyle.MappingName)
            For Each myColumnStyle In myGridStyle.GridColumnStyles
                'MsgBox(myColumnStyle.MappingName)
                If myColumnStyle.MappingName = "RECNUM" Then
                    myColumnStyle.Width = 250
                ElseIf myColumnStyle.MappingName = "WERT1" Then
                    myColumnStyle.Width = 250
                End If
            Next
        Next
    End Sub
---schnapp---


Wer kann mir helfen ?
Ich möchte doch nur eine Spalte formatieren... :-(


gruss
ralf

Gruss
Ralf
	

Betreff Von Datum

Re: Datagrid formatieren

OK, das scheint jetzt zu funktionieren. Kann mir vielleicht noch jemand sagen, wie ich abprüfen kann, ob DataGrid1.TableStyles.Add(ts1) dieser Befehl schon ausgeführt wurde ? Gruss Ralf

Ralf Ziola 26.04.2005 08:37

Re: Datagrid formatieren

Hi! Vielleicht gehts ja so: Dim tsAdded As Boolean Nun hinter JEDEM >DataGrid1.TableStyles.Add(ts1)< einfach >tsAdded = True< einfügen Dann kannst du es jederzeit einfach mit einer...

G. Guest 26.04.2005 12:28

Re: Datagrid formatieren

Vielen Dank für deinen Tip. Ich hab das jetzt über Try/Catch gelöst, wobei in catch nichts drin steht. gruss ralf

Ralf Ziola 27.04.2005 10:30

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!