请问一下每月第一天数据录入的问题

[sun1735]

我在表单中录入数据，其中的一个自段只要每月第一天录入一次即可，该月的其余其余时间数据和该数据相同，自动出现，不用录入，请问如何实现该功能？

[十豆三]

判断第一天录入吗？
如果录入，就不能再录入。
如果未录入，就录入并替换本月其余日期。

[sun1735]

请问具体如何来实现呀

[WWWWA]

首先判断今天是否是每月的第一天，如是，此字段赋值：
if date()=date(year(date()),month(date()),1)
赋值
endif
否则直接取此字段的值

[sun1735]

需求是这样的，如果是每月的第一天，则，将该文本框初始化为0，手动录入值，当月的其他时间，将每月第一天输入的数据复制到文本框中，请问如何复制第一天的数据到文本框中？

[WWWWA]

在FORM的ACTIVATE OR 其它事件中
thisform.text1.Value="123"

thisform.text1.Value=字段值

[sun1735]

if day(ss)=1
for i=1 to 6
mytext="pageframe1.page1.text"+alltrim(str(i))
thisform.&mytext..value=0.00
endfor
else
close table all
use e:\vf\report1.dbf shared
** locate for date(year(ss),month(ss),day(ss))=date(year(adate),month(adate),1)
locate for year(adate)=year(ss).and.month(adate)=month(ss).and.day(adate)=1
select * from report1 where adate=ss into cursor aa
thisform.pageframe1.page1.text1.value=aa.rj1
thisform.pageframe1.page1.text2.value=aa.rj2
thisform.pageframe1.page1.text3.value=aa.rj3
thisform.pageframe1.page1.text4.value=aa.rj5
thisform.pageframe1.page1.text5.value=aa.rj6
thisform.pageframe1.page1.text6.value=aa.rj7
close table all
endif
这是我在添加按钮中写的程序，我定位到每月的第一天，怎么取不到第一天的数据呀
locate for year(adate)=year(ss).and.month(adate)=month(ss).and.day(adate)=1这句话有问题吗

[WWWWA]

ADATE是什么内容，LOCA 后，应该加判断，再做处理

[sun1735]

adate是表中日期字段

[dfwxj]

loca for 日期=date(year(date()),month(date()),1)
if found()
记录相关值处理
else
不存在，添加
endif