nv_dbf lnv_dbf

lnv_dbf = create nv_dbf
long ll_ret
any la_value
String ls_field

ll_ret = lnv_dbf.of_fileopen(ls_DBFfile) 
if ll_ret< 0  then
	messagebox('Ошибка','Невозможно открыть файл для импорта (' + string(ll_ret) + ').',stopsign!)
	lnv_dbf.of_fileclose()
	destroy nv_dbf
	return
end if

for i= 1  to lnv_dbf.file_records_num
	ll_ret = lnv_dbf.of_loadrecord(i)
	
	if ll_ret< 0  then 
		messagebox('Ошибка','Невозможно прочитать строку №' + string(i) + ' (' + string(ll_ret) + ').',stopsign!)
		exit
	end if
	
	dw.insertrow( 0 )
	
	for j= 1  to lnv_dbf.of_columncount()
		if j > long(dw.Describe("DataWindow.Column.Count")) then exit
		la_value = lnv_dbf.of_getfieldvalue(j)
		ls_field = lower(lnv_dbf.of_getfieldname(j))
		
		if classname(la_value)="string" then
			ls_temp = string(la_value)
			OemToChar(ls_temp, ls_temp)
			dw.setitem(i,j,ls_temp)
		else
			dw.setitem(i,j,String(la_value))
		end if
		
	next
next

lnv_dbf.of_fileclose()
destroy nv_dbf