想用vfp6.0的日历控件，做了一个连续几个日期选择。就是在指定月份连续用鼠标点日历上2个以上日期，并把具体日期值传给事先定义好的数组里。请教各位老师，如何实现？谢谢！附我自己的代码
在表单上插入一个页框，在页框内插入日历控件，事先定义一个全局数组，将每次鼠标点的日期值赋给数组。我想用一个循环实现连续点选，连续赋值，结果发现数组都是一个值。请各位老师帮我看一下。跪谢！
set date ansi
set cent on
mymonth=thisform.pageframe1.page1.jjr.month
myyear=thisform.pageframe1.page1.jjr.year
myday=thisform.pageframe1.page1.jjr.day
stor 1 to  i
do while i<=11
   myrq=str(myyear,4)+'.'+right('0'+allt(str(mymonth)),2)+'.'+right('0'+allt(str(myday)),2)
   arrayjjr(i)=ctod(myrq)
   i=i+1
enddo
messagebox("全年节假日共11天，已达规定天数。请确认选择，否则重新选择",64,"警告")   

个人感觉这种需求用check控件选择更直观

建议日历控件仅单选日期，多日期需求非控件本身功能，外围实现。楼主程序结构有问题，按楼主思路，年月日取值应该在循环内：
set date ansi
set cent on
stor 1 to  i
do while i<=11
   mymonth=thisform.pageframe1.page1.jjr.month
   myyear=thisform.pageframe1.page1.jjr.year
   myday=thisform.pageframe1.page1.jjr.day
   myrq=str(myyear,4)+'.'+right('0'+allt(str(mymonth)),2)+'.'+right('0'+allt(str(myday)),2)
   arrayjjr(i)=ctod(myrq)
   i=i+1
enddo
messagebox("全年节假日共11天，已达规定天数。请确认选择，否则重新选择",64,"警告")

练练手.坛子吞附件图,再传一次试试

[此贴子已经被作者于2024-2-19 17:34编辑过]