紧急求助、挑选日期的问题
thisform。text1.value =2012
thisform。text2.value = 11
thisform。combo1.recordsource =‘’
现在想要得结果是
在COMBO1 中显示 2012/11月 中每个星期6的日期。比如10号 或者 17号
在线等、、、、
[解决办法]
&&以下代码放到Text1、Text2的Valid事件中去
LOCAL nYear,nMonth,dDate
m.nYear=Thisform.text1.Value
m.nMonth=Thisform.text2.Value
m.dDate=CTOD(STR(m.nYear,4)+"."+STR(m.nMonth,2)+".01")
IF NOT EMPTY(m.dDate)
Thisform.combo1.Clear
DO WHILE .T.
IF DOW(m.dDate,2)=6
Thisform.combo1.AddItem(STR(DAY(m.dDate)))
ENDIF
IF MONTH(m.dDate)=MONTH(m.dDate+1)
m.dDate=m.dDate+1
ELSE
EXIT
ENDIF
ENDDO
Thisform.combo1.ListIndex =1
ENDIF
[解决办法]
Set Fdow To
ldDateS=Date(Thisform.Text1.Value,Thisform.Text2.Value,1)
ldDateE=Gomonth(ldDateS-Day(ldDateS)+1,1)-1
Thisform.Combo1.RowSourceType=0
For lnI=0 To Day(ldDateE)-1
If Dow(ldDateS+lnI)=7
Thisform.Combo1.AddItem(Dtoc(ldDateS+lnI))
Endif
Endfor
