表单如下

选择路径按钮代码如下:

SET DATE ANSI
SET CENTURY ON
cFileName="Backup"+STRTRAN(DTOC(DATE()),".","")  &&默认文件名称为"Backup"+当前日期
SET DATE LONG
cFile=PUTFILE("",cFileName,"rar")
IF NOT EMPTY(cFile)
    this.Parent.txtfile.Value=cFile
    IF FILE(cFile)
        DELETE FILE &cFile
    ENDIF
    IF NOT EMPTY(this.Parent.txtfile.Value)
        this.Parent.cmdbackup.Enabled = .T.
    ELSE
        this.Parent.cmdbackup.Enabled= .F.
    ENDIF
ENDIF
thisform.Refresh

开始备份代码如下:

CLOSE ALL
cDirFile=ALLTRIM(this.Parent.txtfile.Value)
IF SUBSTR(cDirFile,1,1)=="A"
    cCmd="winrar a-r-v1440-vd"+cDirFile+"@backup.lst"
ELSE
    cCmd="WinRAR a-r"+cDirFile+"@backup.lst"
ENDIF
RUN /N &cCmd

backup.lst文件内容如下:
DATA1.DBC
DATA1.DCT

运行后是这样,出什么问题了

该如何解决

谢谢了,解决了

各位老师,有个小小的问题借个旧贴问一下:
我在表单的load事件下创建一个临时表
CREATE CURSOR curl(日期 D,编号 C(3),项目名称 C(60),备注 C(100))
然后在表单的一个页框的page2里添加一个表格控件,其数据源是curl
在page2添加了文本框和编辑框和命令按钮,为curl插手数据
命令按钮的代码如下:

a = alltrim(thisform.页框.page2.text1.value)
      b = alltrim(thisform.页框.page2.text2.value) 
      c = alltrim(thisform.页框.page2.edit1.value)
      insert into curl (日期,编号,项目名称,备注) values (date(),a,b,c)
      thisform.页框.page2.refresh

我这样设计,插入第一条记录,表格还可以正常显示,可插入第二条记录时,表格就不能正常显示了,第一条记录不能显示了,表格显示三行记录,都是跟第二次插入的记录
这是为什么,我用命令窗口brow浏览curl里,curl也是只有2条记录啊