Hallo Andy,
danke für den Rat. Ich werde das nochmal ändern.
Robert
Am 24.07.2010 um 11:35 schrieb Andy Fuchs:
Hi Robert,
Moment - Du willst jetzt aber nicht ernsthaft sagen, dass dieser
Code am 'GotFocus'-Event einer Combobox hängt? Sollte das so sein,
dann würde ich vielleicht zunächst mal meine Code-Struktur
überdenken. Dort gehört solcher Code jedenfalls ganz sicher nicht
hin. Und wenn schon in einen GotFocus-Event, dann sicher nicht in
einen, der von einem virtuellen Control geschickt wird - der kann
beliebig oft abgefeuert werden, je nachdem...
PS: Rechnungsnummer erhöhen geht bei mir so:
...
curIndex = maxIndex+1
newInvoiceId = "#" + curIndex + "-" + curYear
Parsen und auswerten eines bestehenden Textes, um das zu erreichen
halte ich - ehrlich gesagt - für Kamikaze
Andy
Am 24.07.2010 um 08:42 schrieb Robert Lehner <r.leh...@typo-
lehner.de>:
Hallo,
kann mir jemand sagen, warum dieser Code die Rechnungsnummer um 2
und nicht um 1 erhöht?
Gleicher Code im Editfield funktioniert.
E7 war früher ein Editfield. Jetzt ist es eine ComboBox.
Schon mal vielen Dank für eure Hilfe.
Robert
Dim t,n,neu As String
Dim i,j,nr As integer
pushButton1.enabled=true
//Rechnungsnummer erhöhen
t=E7.text
for i=3 to 20
if mid(t,i,1)="#" then
for j=1 to 6
if asc(mid(t,i+j,1))>47 and asc(mid(t,i+j,1))<58 then
n=n+mid(t,i+j,1)
end if
next
nr=val(n)+1
neu=str(nr)
t=left(t,i)+neu
exit
end if
next
E7.text=t
E7.selstart=len(E7.text)
