vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 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
DataGrid Problem beim Zuweisen von Prozentzahlen mit CellNew 
Autor: Chris1211
Datum: 03.03.09 11:19
Hallo,

ich verwende ein Grid im recordset Mode mit ADO. Es gibt die Spalte ArtikelNr und Rabatt.

Beim zuweisen des Recordsets wir das Format der Rabattspalte gesetzt. Die Funktion zum Zuweisen wir in Form Load aufgerufen. 
Grid1.Columns("Rabatt").DisplayFormat = "#0.00%"
Beim hinzufügen eines neuen Datensatzes im Grid wird im AfterCellEdit nach Auswahl der Artikelnummer ein Rabatt über die Funktion rabatt_check (die einen Double zurückliefert) generiert.
Dieser Rabatt wir dan über CellNew an die Rabattspalte zugewiesen. Wenn mir nun rabatt_check 0,15 liefert steht nacher im Grid 15%. Wenn Sie mir jedoch 0,1 liefert steht nacher 1% statt 10% im Grid. Und noch merkwürdiger wird es wenn ich 0,0133 mit CellNew zuweise, dann steht im Grid 133% statt 1,33%. 

Private Sub Grid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
 
Dim dRabatt As Double
 
  With Grid1
    If nCol = .GetCol("ArtikelNr") Then
       dRabatt = rabatt_check(.CellNew("ArtikelNr"))
       .CellNew("Rabatt") = dRabatt 
    End If
  End With
 
Exit Sub
Ich hab schon alles Mögliche versucht komme aber nicht weiter. Vieleicht kann mir einer von euch helfen.

Gruß & Danke
Christian

In StartEditMode steht: 
 
If nCol = Grid1.GetCol("Rabatt") Then ' Nötig für PROZENT %
  sText = Format$(Val(Replace(sText, ",", ".")) * 100, "0.00")
End If
In BeforeUpdate steht: 
If nCol = Grid1.GetCol("Rabatt") Then  ' Nötig für PROZENT %
  sText = Format$(Val(Replace(sText, ",", ".")) / 100, "0.00")
End If
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
DataGrid Problem beim Zuweisen von Prozentzahlen mit CellNew986Chris121103.03.09 11:19
Re: DataGrid Problem beim Zuweisen von Prozentzahlen mit Cel...625ModeratorDieter04.03.09 06:51
Re: DataGrid Problem beim Zuweisen von Prozentzahlen mit Cel...477Chris121104.03.09 09:03
Re: DataGrid Problem beim Zuweisen von Prozentzahlen mit Cel...519Chris121104.03.09 09:34

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