vfp中这个复杂功能如何实现
高手,我要实现这样一个功能。在表单中修改表的一列记录(已实现)然后点击“执行”按钮将修改过后的表另存为一个新表,表名是thisform.combo1.value+dtoc(date()),且同时清空已经修改的表的那一列记录。
如何实现呢?
我的执行按钮的程序如下:
SELECT 考核指标
newtablename=ALLTRIM(thisform.combo1.Value)+DTOC(DATE())
IF !EMPTY(thisform.combo1.Value)
copy to newtablename field 指标编号,指标名称,分值,指标得分
thisform.grdkhzb.column10.text1.Value=0.00
MESSAGEBOX("保存机构指标成绩分表成功!","绩效考核系统")
ELSE MESSAGEBOX("未选择考核机构!","提示")
thisform.combo1.SetFocus
ENDIF
表单如图:
[解决办法]
Select 考核指标If !Empty(Thisform.combo1.DisplayValue) newtablename=Alltrim(Thisform.combo1.DisplayValue)+Dtos(Date()) Copy To (newtablename) Fields 指标编号,指标名称,分值,指标得分 Replace All 指标得分 With 0 Messagebox("保存机构指标成绩分表成功!","绩效考核系统")Else Messagebox("未选择考核机构!","提示") Thisform.combo1.SetFocusEndif
[解决办法]
还有,判断是否选择了项目应当检测DISPLAYVALUE