vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen & Antworten rund um sev-Komponenten
Re: DoExport ungebundene Spalten 
Autor: QDaniel
Datum: 17.09.08 16:17
also ich mache folgendes: 


214     .CreateClone = True
216     Set rsTmp = frmHandler.Engine.GetRSSql(sSQL)
218     Set .Recordset = rsTmp
 
 
220     .Columns(1).Visible = False
222     .Columns(2).Caption = "Name / Firma"
224     .Columns(2).Width = 2000
226     .Columns(3).Caption = "Vorname / Zusatz"
228     .Columns(3).Width = 2500
230     .Columns(4).Caption = "Geburtstag"
232     .Columns(4).Width = 1000
234     .Columns(5).Caption = "Straße"
236     .Columns(5).Width = 2000
238     .Columns(6).Caption = "PLZ"
240     .Columns(6).Width = 800
242     .Columns(7).Caption = "Stadt"
244     .Columns(7).Width = 1500
246     .Columns(8).Visible = False
248     .Columns(9).Caption = "Land"
250     .Columns(9).Width = 1500
252     .Columns(9).Visible = False
254     .Columns(10).Visible = False
256     .Columns(11).Visible = False
258     .Columns(12).Visible = False
260     .Columns(13).Visible = False
262     .Columns(14).Visible = False
264     .Columns(15).Visible = False
266     .ColumnAdd("kdnnr", "Vermittler-Nr", 1000).Position = 1
268     .Columns("kdnnr").Visible = (schkVPNr.Value = vbChecked)
 
270     .LockUpdate False
272     .Refresh
und im RowLoaded 
Private Sub sgrdResults_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
 
    Dim typRel As typRelation
100     If schkVPNr.Value = vbChecked Then
102         typRel = GetFirstKdnNr(val(Item.CellText("lawperson_id")), True)
104         Item.CellText("kdnnr") = typRel.KdnNr
106         Item.CellForeColor("kdnnr") = IIf(typRel.Deaktivated, vbRed, _
  vbBlack)
108         Item.CellToolTipText("kdnnr") = typRel.Remark
        End If
 
End Sub
und zum exportieren folgende Funktion 


Public Function ExportGrid(Grid As sevGrid) As Boolean
    Dim sPath As String, lRet As Long
    Dim sFilter As String
    sFilter = "Excel File (*.xls)|*.xls|CSV File (*.csv)|*.csv"
    lRet = cdlgSaveFile(sPath, "Export speichern ...", CurDir$, sFilter, "xls", _
      Grid.hwnd, 0)
 
    If lRet = 0 Then Exit Function
 
    If LCase$(GetFilenameExt(sPath)) = "csv" Then
        Call Grid.DoExport(sPath, EXPORT_CSV, , , , , , ";")
    Else
        Call Grid.DoExport(sPath, EXPORT_XLS)
    End If
    ExportGrid = True
End Function
und wenn ich nun die XLS erstellen lassen ist die erste Spalte immer leer.

-------------------------------------------
Follow the White Rabbit !!!

Beitrag wurde zuletzt am 17.09.08 um 16:18:14 editiert.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
DoExport ungebundene Spalten724QDaniel17.09.08 13:35
Re: DoExport ungebundene Spalten534ModeratorDieter17.09.08 14:15
Re: DoExport ungebundene Spalten499QDaniel17.09.08 16:17
Re: DoExport ungebundene Spalten504ModeratorDieter17.09.08 17:43

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel