是否能合成一条代码


纵观以上代码中的问题，鉴定结果如下：
楼主对VFP知之甚少，很少看VFP的帮助文件

[ 本帖最后由 sdta 于 2014-6-9 14:20 编辑 ]

程序没有发生错误，按照我自己的想法来编写的，可能不属于VFP语法。





这个中间是不是说bgtime的变量没有定义？bgtime在另外一个语句中用public来定义的，所以在这边仍然有效。定义代码如下：
PUBLIC x ,bgtime,endtime,lasttime
x =DATE()
?GOMONTH(x,-1)-DAY(x)+1
bgtime =GOMONTH(x,-1)-DAY(GOMONTH(x,-1))+1
lasttime =GOMONTH(x,-2)-DAY(GOMONTH(x,-2))+1
endtime =x-DAY(x)
b =DATETIME()


其他的错误我就不清楚了。

CAST(YEAR(bgtime)as n(4))
YEAR(bgtime) 已经定义为数值型，宽度为4个字节。为什么此处还要用Cast()转换数据类型为数值型，是不是有点画蛇添足的感觉。

这个我不是很清楚，当时用year(bgtime)发现是文本，不能直接where fyear =2014 所以，我就添加了cast(year(bgtime)as n(4)) 这样就可以直接用where fyear =2014了。

根据某个条件有选择的执行某段代码或执行某项操作，这是常用语言中最基本的功能。常用的有if ....else....endif、do case....endcase等等。既然楼主已经写出了那么多的代码，不会连这样的基本结构都不知道吧。

这段代码在VFP下之所以可以执行而不报错，是因为VFP会自动忽略else,endif命令之后同一行的所有内容，VFP将这些内容视为注释。
但在VFP及很多语言中，一行内是不能存在两个命令的，而且IF与ENDIF必须的成对使用，否则系统就会报错。

year()返回的值是数值型的，这在帮助文件中已经说的非常清楚。如果bgtime不是日期型数据，则执行这条命令时就会有出借提示。所以要转换数据类型的只能是函数的参数，而不是函数返回的值。

[ 本帖最后由 hu9jj 于 2014-6-9 20:55 编辑 ]

竟然不会执行，不过这个程序里面也是可以忽略的，忽略了对后面的计算不会有影响，只不过如果有调整数据，那么那个xb一定大于0，一定会进行更新动作。
否则不需要进行更新，也还好理解都没有怎么出现错误的原因了。
谢谢。