首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

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

2012-03-11 
vfp中这个复杂功能如何实现高手,我要实现这样一个功能。在表单中修改表的一列记录(已实现)然后点击“执行”按

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

热点排行