Hello Ray !
I want try it with this Code in Main Form:
var vRS as Int var vName as String var vList as String
vList = @XLookupAll(@FN, "/=", "Main Form!Kunde", "Kunde") If vList <> "" { vList = @SortStringArray(vList, 0) vName = @PopupChoiceList(vList, "SELECT A RECORD ")
If vName <> "" { vRS = @XResultSetSearch(@FN, "Customers", SEARCH_MODE_AND,SEARCH_SYNTAX_QA, "Kunde=" + vName) If vRS > -1 { vAdresse = @XResultSetValue(vRS, "Adresse") vOrt = @XResultSetValue(vRS, "Ort")
If @XResultSetLocked(vRS) = 0 and ( vAdresse <> Adresse or vOrt <> Ort) {
XResultSetValue(vRS, "Adresse", Adresse) XResultSetValue(vRS, "Ort", Ort) XResultSetClose(vRS) } { @MsgBox("Error: Kunde wurde nicht gefunden.", "", "") } } Else { @MsgBox("Error: die Kunden - Liste ist fehlgechalgen", "", "") }
|