本文介绍了Foxpro 2.6基于DOS的应用程序到C#或VB转换帮助的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
Haiii all
我有一个基于foxpro 2.6 dos的应用程序,这个应用程序我想转换成C#或VB.Net,所以请帮帮我们。
Haiii all
I have a foxpro 2.6 dos based application, this application i want to convert into C# or VB.Net, so please help me out guys.
procedure save_clas_det
if(empty(tcur_clas))
do mesg_wind with 'Incomplete Details . Please Check......'
return
endif
decl temp_arr[1]
if(told_or_new = 1)
sele 5
seek class_arr[tclass_no,2]
trec_no = recno()
temp_arr = 0
select count(*) from &tcl_det_file ;
where name = tcur_clas .and. recno() # trec_no ;
into array temp_arr
if(temp_arr[1] > 0)
do mesg_wind with 'Duplicate Entry . Please Check......'
return
endif
else
temp_arr = 0
select count(*) from &tcl_det_file ;
where name = tcur_clas ;
into array temp_arr
if(temp_arr[1] > 0)
do mesg_wind with 'Duplicate Entry . Please Check......'
return
endif
sele 5
append blank
temp_arr = 0
select max(class) from &tcl_det_file ;
into array temp_arr
repl class with temp_arr[1] + 1
endif
repl name with tcur_clas
if(told_or_new = 1)
if(tcur_clas # substr(class_arr[tclass_no,1],3))
class_arr[tclass_no,1] = space(2) + tcur_clas
show gets
endif
else
do get_cl_det with .f.
tcur_clas = space(tclas_name_len)
show gets
endif
do mesg_wind with 'Class Details Saved......'
上面是foxpro的代码,我想要'复制条目'我想要的功能,请看代码并告诉转换,ThnQ
ThnQ
The above is the code of foxpro, there i want the 'Duplicate entry' that functionality i want, plz see the code and tell the conversion, ThnQ
ThnQ
推荐答案
这篇关于Foxpro 2.6基于DOS的应用程序到C#或VB转换帮助的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!