[Visual Basic]
Public Function getspalte( _ 
   ByVal tabelle As String, _ 
   ByVal feld As String, _ 
   ByRef spaltenname As String, _ 
   ByRef locked As Boolean, _ 
   ByRef colwidth As Integer, _ 
   ByRef order As Integer, _ 
   ByRef alshacken As Boolean, _ 
   ByRef tiptext As String, _ 
   ByRef numberformat As String _ 
) As Object

Parameter

tabelle

feld

spaltenname

locked

colwidth

order

alshacken

tiptext

numberformat

Quellcode

[Visual Basic]
        Public Function getspalte(ByVal tabelle As String, ByVal feld As String, ByRef spaltenname As String, ByRef locked As Boolean, _ 
        ByRef colwidth As Integer, ByRef order As Integer, ByRef alshacken As Boolean, ByRef tiptext As String, ByRef numberformat As String) 
            If spaltendata.Rows.Count = 0 Then load_data() 
            Dim dv() As DataRow 
            Dim dr As DataRow 
            dv = spaltendata.Select("Tabelle='" & tabelle & "' and tabellenspalte='" & feld & "'", "Reihenfolge, Eintragnr") 
            If dv.Length = 0 Then 
                spaltenname = "" 
                locked = True 
                colwidth = 0 
                order = 0 
                alshacken = False 
                tiptext = "" 
                numberformat = "" 
            End If 
            For Each dr In dv 
                spaltenname = dr.Item(3) 
                locked = dr.Item(4) 
                colwidth = dr.Item(6) 
                order = dr.Item(7) 
                alshacken = dr.Item(5) 
                tiptext = dr.Item(8) 
                numberformat = dr.Item(14).ToString 
            Next 
            'Dim i As Integer 
            'For i = 0 To spaltendata.Rows.Count - 1 
 
            '    If UCase(spaltendata.Rows(i).Item(1)) = UCase(tabelle) And UCase(spaltendata.Rows(i).Item(2)) = UCase(feld) Then 
            '        spaltenname = spaltendata.Rows(i).Item(3) 
            '        locked = spaltendata.Rows(i).Item(4) 
            '        colwidth = spaltendata.Rows(i).Item(6) 
            '        order = spaltendata.Rows(i).Item(7) 
            '        alshacken = spaltendata.Rows(i).Item(5) 
            '        tiptext = spaltendata.Rows(i).Item(8) 
            '        Exit Function 
            '    End If 
            'Next 
 
        End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

MySpaltenTitel