UC知道请教一个PB问题,,,超人快来```
来源：百度知道 编辑：UC知道 时间：2024/06/05 20:09:04
我用的PB10.0 目前自学中. 开到一本书上的图书管理软件中,有个备份的程序,click时间是这样
string Is_path,Is_run
boolean lb_fexist
Is_path=sle_path.text
if trim(Is_path)='' or Isnull(Is_path) then
messagebox("信息提示:","请输入或选择备份目录!")
sle_path.setfocus()
return
else
if directoryexists(Is_path)=false then
if messagebox('信息提示:',Is_path+'不存在,是否创建该目录?',question!,yesno!,1)=1 then
nvo_public_function lnv_crea
if createdirectory(Is_path)<0 then
messagebox('信息提示:','无法创建目录!')
close(parent)
return
end if
else
sle_path.setfocus()
return
end if
end if
end if
setprofilestring('system.ini','backup','path',Is_path)
Is_run="dbbackup -c ~"uid=dba;pwd=sql" + "~" -y ~""+Is_path+"~""
run(Is_run)
close(parent)
在执行的时候,PB提示illegal data type:n
string Is_path,Is_run
boolean lb_fexist
Is_path=sle_path.text
if trim(Is_path)='' or Isnull(Is_path) then
messagebox("信息提示:","请输入或选择备份目录!")
sle_path.setfocus()
return
else
if directoryexists(Is_path)=false then
if messagebox('信息提示:',Is_path+'不存在,是否创建该目录?',question!,yesno!,1)=1 then
nvo_public_function lnv_crea
if createdirectory(Is_path)<0 then
messagebox('信息提示:','无法创建目录!')
close(parent)
return
end if
else
sle_path.setfocus()
return
end if
end if
end if
setprofilestring('system.ini','backup','path',Is_path)
Is_run="dbbackup -c ~"uid=dba;pwd=sql" + "~" -y ~""+Is_path+"~""
run(Is_run)
close(parent)
在执行的时候,PB提示illegal data type:n
我来试试
nvo_public_function 是用户自己定义的一个对象
如果是定制类用户对象，那你就看看这个对象的General中的AutoInstantiate有没有钩上，如果没有勾上的话，在脚本中用Create创建一下这个对象
nvo_public_function lnv_crea
lnv_crea = create nvo_public_function
你试试看
有病毒,快删除.