在线等
初学者，请指教，谢谢！

以下代码放在command的click中：
bdlr_mulu1=thisform.Text_sr_y.value
bdlr_mulu2=thisform.Text_sr_m.value
bdlr_mulu3=thisform.Text_sr_D.value

IF !DIRECTORY("D:\jjbd\"+alltrim(str(bdlr_mulu1))) &&不存在

MD "D:\jjbd\"+alltrim(str(bdlr_mulu1)) &&创建jjbd\str(bdlr_mulu1)文件夹
MD "D:\jjbd\"+alltrim(str(bdlr_mulu1))+"\M"+alltrim(str(bdlr_mulu2)) &&创建jjbd\mulu1\mulu2文件夹

ELSE

IF !DIRECTORY("D:\jjbd\"+alltrim(str(bdlr_mulu1))+"\M"+alltrim(str(bdlr_mulu2)))&&不存在
MD "D:\jjbd\"+alltrim(str(bdlr_mulu1))+"\M"+alltrim(str(bdlr_mulu2)) &&创建jjbd\mulu1\mulu2文件夹
ENDIF

ENDIF

**判断文件是否存在

if file("D:\jjbd\"+alltrim(str(bdlr_mulu1))+"\M"+alltrim(str(bdlr_mulu2))+"\D"+alltrim(STR(bdlr_mulu3))+".dbf") then
**[文件存在]
ELSE
COPY FILE "D:\jjbd\bf\表bdlr.dbf"to"D:\jjbd\"+alltrim(str(bdlr_mulu1))+"\M"+alltrim(str(bdlr_mulu2))+"\D"+alltrim(str(bdlr_mulu3))+".dbf"
endif

thisform.grid1.RecordSource=null

IF NOT USED("D:\jjbd\"+alltrim(str(bdlr_mulu1))+"\M"+alltrim(str(bdlr_mulu2))+"\D"+alltrim(str(bdlr_mulu3)))
use "D:\jjbd\"+alltrim(str(bdlr_mulu1))+"\M"+alltrim(str(bdlr_mulu2))+"\D"+alltrim(str(bdlr_mulu3))+".dbf"
else
sele "D:\jjbd\"+alltrim(str(bdlr_mulu1))+"\M"+alltrim(str(bdlr_mulu2))+"\D"+alltrim(str(bdlr_mulu3))
ENDIF

APPEND blank
...............
**再清除表单内容

Thisform.GRID1.RecordSourceType = 1
thisform.grid1.RecordSource="表ls"
THISFORM.grid1.BackColor=RGB(255,255,255)
thisform.grid1.Column1.width=30
thisform.grid1.Column2.width=180
thisform.grid1.refresh


第一次按command没问题，再次录入数据，第二次按command，会出现两个问题：

1、提示 use "D:\jjbd\"+alltrim(str(bdlr_mulu1))+"\M"+alltrim(str(bdlr_mulu2))+"\D"+alltrim(str(bdlr_mulu3))+".dbf" 已经打开


2、grid1 不显示内容，只有表格线（绑定表为"表ls"）

之前有过这样代码：
PUBLIC MM
MM=this.Value
THISFORM.grid1.SetAll("DynamicBackColor","IIF(sry=MM,rgb(255,0,0),rgb(255,255,255))", "Column")
THISFORM.grid1.Refresh
为了实现上面的功能，grid1就不显示数据了

一言以蔽之，没有擦屁股的习惯。

打开表之前先判定一下是否已打开嘛

代码不太清爽，随手爽一下，只作参考：

以下代码放在command的click中：

bdlr_mulu1=alltrim(thisform.Text_sr_y.value)  && 静态设置为字符型
bdlr_mulu2=alltrim(thisform.Text_sr_m.value)
bdlr_mulu3=alltrim(thisform.Text_sr_D.value)

_Path = "D:\jjbd\"
_Path1 = _Path + bdlr_mulu1
_Path2 = _Path + bdlr_mulu1 + "\M" + bdlr_mulu2

IF !DIRECTORY(_Path1) &&不存在
    MD (_Path1) &&创建jjbd\str(bdlr_mulu1)文件夹
    MD (_Path2) &&创建jjbd\mulu1\mulu2文件夹
ELSE
    IF !DIRECTORY(_Path2) &&不存在
    MD (_Path2) &&创建jjbd\mulu1\mulu2文件夹
    ENDIF
ENDIF

**判断文件是否存在
_sDBF = _Path + "bf\表bdlr.dbf"
_dDBF = _Path2 + "\D"+ bdlr_mulu3 + ".dbf"

if !file(_dDBF)
    COPY FILE (_sDBF) to (_dDBF)
endif

thisform.grid1.RecordSource=null

IF !USED("表ls")
    use (_dDBF) alias 表ls in 0
else
    select 表ls
ENDIF

APPEND blank
...............
**再清除表单内容

Thisform.GRID1.RecordSourceType = 1
thisform.grid1.RecordSource="表ls"
THISFORM.grid1.BackColor=RGB(255,255,255)
thisform.grid1.Column1.width=30
thisform.grid1.Column2.width=180
thisform.grid1.refresh

初学者常见问题之一：打开表的代码到处乱写，导致重复的打开同一个表而出错。