当前位置: 代码迷 >> VFP >> vfp中这个复杂功能怎么实现
  详细解决方案

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

热度:2769   发布时间:2013-02-26 00:00:00.0
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
  相关解决方案