回 帖 发 新 帖 刷新版面

主题:查询问题

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都是只读状态,不知道哪里出了问题,请老师们帮忙下。

回复列表 (共22个回复)

21 楼

试试:每次查询后,除指定表格的数据源外,再指定添加了的CHECK的数据源。

22 楼

一楼的问题提已经解决了。
为什么每次查询要重新设置一些属性,我在研究研究。谢谢大家的帮忙。

我来回复

您尚未登录,请登录后再回复。点此登录或注册