|
| |
VB.NET - Ein- und Umsteiger| Rückgriffe auslesen | |  | | Autor: jokybordaux | | Datum: 07.06.05 11:26 |
| hi!!
Hab wieder mal ein Problem, wo ich nicht ganz weiß, wie ich das realisieren soll?!
Und zwar:
Ich lese Daten mit diesem Programm aus.
For i = 1 To lv.Anz
lv.Rec = i 'Aktuellen Datensatz setzen
'Ggf. Kalkulationssätze lesen und an Excel übergeben
If kalk.Anz > 0 Then
position = 1
For j = 1 To kalk.Anz
'K7- Zeile ausgeben
kalk.Rec = j 'Aktuellen Satz setzen
Dim arkalk() As String = kalk.BNr.Split("R")
For Each str As String In arkalk
'Abfrage,ob kalk.BNr aus einem A und Zahlen besteht
If kalk.BNr = "R" & str Then
For k = 1 To kalk.Anz
kalk.Rec = k
'PosNr (Spalte 2)
CType(xlBlatt.Cells, Excel.Range)(curRow, 1).value = _
lv.PNr
'Position (Spalte 3)
CType(xlBlatt.Cells, Excel.Range)(curRow, 2).value = _
position
'Kurztext (Spalte 4)
CType(xlBlatt.Cells, Excel.Range)(curRow, 3).value = _
lv.KTx
'Betriebsmittelnummer (Spalte 8)
CType(xlBlatt.Cells, Excel.Range)(curRow, 4).value = _
kalk.BNr
'Ansatz (Spalte 9)
CType(xlBlatt.Cells, Excel.Range)(curRow, 5).value = _
kalk.Ans
curRow += 1
position += 1 'Wert für Position erhöhen
Next
End If
Next str
Next
End If
'Fortschrittsbalken erhöhen
ProgressBarEXE.Value += 1
NextAussehen tut das ganze dann so (inExcel):
02060601F 1 APV KST 2reih 24TE R01060601F 1
02061106C 1 Sich.LastSch.RE D02 63A 3pol R01061106C 1
02061312K 1 LS-Schalter RE 1pol+N C 13A R01061312K 1
02061312L 1 LS-Schalter RE 1pol+N C 16A R01061312L 1
02061316L 1 LS-Schalter RE 3pol+N C 16A R01061316L 1
02061335P 1 HLS-Schalter RE 3pol C 40A R01061335P 1 Mein Problem ist, dass das Rückgriffe sind. Was ich machen muss ist, die Originalposition vor der mit den Rückgriff setzten, damit man sieht, auf was überhaupt rückgegriffen wird.
2.Problem ist, dass dieselben Rückgriffe in Positionen enthalten sind die mit 03 und 04 anfangen. Das heißt, dass die ersten 2 Zahlen verschieden sind und die letzten 5-6 Stellen immer gleich sind.
Weiß wer wie man das lösen kann??
lg Tina | |
 | 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 |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats Neu! sevPopUp 2.0 
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere Infos
|
| |
|
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
|
|
November 2025
Sie sind aktuell nicht angemeldet.
