Folgendes geht nicht:
Code: Alles auswählen
info(["test1", "test2"][1])
Code: Alles auswählen
info(["test1", "test2"][1])
Code: Alles auswählen
{sTable + "." + sField} = {dsMySource + "." + sField}
Code: Alles auswählen
sResControl = EnumControl({sControl}, i)
Code: Alles auswählen
IF NOT TmEmpty(sDBField) _AND_ NOT TmEmpty({sResControl + "..DisplayedValue"}) THEN
// neu angelegter Eintrag in der Combobox
{sDBField} = {sResControl + "..DisplayedValue"}
// Names des Controls sowie das Query im Array merken
sTemp = sResControl + TAB + {sResControl + ".BrowsedFile"}
TmAppClass.m_arrCombobox.Add(sTemp)
END
Code: Alles auswählen
procedure irgendwas(nEintrag)
result ["test1", "test2"][nEintrag]
Code: Alles auswählen
info(irgendwas(2))
procedure irgendwas(nEintrag)
result ["test1", "test2"][nEintrag]
Code: Alles auswählen
#define ARTIKELFELDER {"artnr", "matchcode", "text1", "text", "warengruppe"}
confirmbox(, fieldget(ARTIKELFELDER[3]))
Code: Alles auswählen
garrArtikelfelder is array of string
StringToArray("artnr"+CR+"matchcode"+CR+"text1"+CR+"text"+CR+"warengruppe", garrArtikelfelder)
// Oder alternativ:
// StringToArray("artnr, matchcode, text1, text, warengruppe", garrArtikelfelder,",")
Info(fieldGet(garrArtikelfelder,3))
...
PROCEDURE fieldGet(arrFields is array of strings,i is int)
IF i <= ArrayCount(arrFields) THEN
RESULT(arrFields[i])
ELSE
RESULT("")
END