主题:查询问题
GRID里面第一列添加了CHECK,GRID数据源是临时表。
用以下查询语句出现问题:
IF EMPTY(thisform.combo5.Value)
SELECT * from jfd where 月份=ALLTRIM(thisform.combo1.value) order by 日期,客户 into cursor lsjfcx Readwrite
ELSE
nf1=ALLTRIM(thisform.combo5.Value)
SELECT * from jfd where 月份=ALLTRIM(thisform.combo1.value) and alltrim(str(year(日期)))=nf1 order by 日期,客户 into cursor lsjfcx Readwrite
endif
thisform.grid1.RecordSource="lsjfcx"
thisform.grid1.Refresh
ThisForm.Grid1.AutoFit(.T.)
IF RECCOUNT()<1
MESSAGEBOX("没有找到相关记录!",0+48,"信息提示")
else
thisform.text1.value=alltrim(STR(RECCOUNT()))
THISFORM.text1.REFRESH
ENDIF
Thisform.grid1.SetAll("DynamicBackColor","iif(Mod(Recno(),2)=1,RGB(255,255,255),RGB(192,192,192))","Column")
thisform.command8.Enabled= .T.
thisform.command10.Enabled= .T.
Thisform.grid1.Bind()
***********以下这三句是发现问题后加进去的,但是好像没效果
thisform.grid1.AllowCellSelection= .T.
thisform.grid1.ReadOnly= .T.
thisform.grid1.Column1.ReadOnly= .F.
第一次按查询后,第一列的check是可以修改的状态,第二次,第三次在按查询第一列就是不能修改的状态了,整个GRID都是只读状态,不知道哪里出了问题,请老师们帮忙下。
用以下查询语句出现问题:
IF EMPTY(thisform.combo5.Value)
SELECT * from jfd where 月份=ALLTRIM(thisform.combo1.value) order by 日期,客户 into cursor lsjfcx Readwrite
ELSE
nf1=ALLTRIM(thisform.combo5.Value)
SELECT * from jfd where 月份=ALLTRIM(thisform.combo1.value) and alltrim(str(year(日期)))=nf1 order by 日期,客户 into cursor lsjfcx Readwrite
endif
thisform.grid1.RecordSource="lsjfcx"
thisform.grid1.Refresh
ThisForm.Grid1.AutoFit(.T.)
IF RECCOUNT()<1
MESSAGEBOX("没有找到相关记录!",0+48,"信息提示")
else
thisform.text1.value=alltrim(STR(RECCOUNT()))
THISFORM.text1.REFRESH
ENDIF
Thisform.grid1.SetAll("DynamicBackColor","iif(Mod(Recno(),2)=1,RGB(255,255,255),RGB(192,192,192))","Column")
thisform.command8.Enabled= .T.
thisform.command10.Enabled= .T.
Thisform.grid1.Bind()
***********以下这三句是发现问题后加进去的,但是好像没效果
thisform.grid1.AllowCellSelection= .T.
thisform.grid1.ReadOnly= .T.
thisform.grid1.Column1.ReadOnly= .F.
第一次按查询后,第一列的check是可以修改的状态,第二次,第三次在按查询第一列就是不能修改的状态了,整个GRID都是只读状态,不知道哪里出了问题,请老师们帮忙下。