Code: Alles auswählen
#include "Common.ch"
#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Font.ch"
#include "Inkey.ch"
#Define CRLF Chr(13)+Chr(10)
Proc Main()
Local aStruc:={}
use splief New via "DBFDBE"
aStruc:=Splief->(DbStruct())
Close splief
DbCreate("lief",aStruc)
use Lief New
append From Splief via "DBFDBE"
Close Lief
msgbox("fertig")
Return
ungültiger Dateiname für DBE-DLL