紧急求助、挑选日期的问题

[asonglinux]

thisform。text1.value =2012
thisform。text2.value = 11
thisform。combo1.recordsource =‘’

现在想要得结果是
在COMBO1 中显示 2012/11月 中每个星期6的日期。比如10号 或者 17号


在线等、、、、

[cupoflife]

&&以下代码放到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