读书人

vfp中这个复杂功能怎么实现

发布时间: 2012-03-11 18:15:38 作者: rapoo

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

表单如图:

[解决办法]

SQL code
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

读书人网 >VFP

热点推荐