您所在位置：主题：查询问题
xm7050432
[专家分：180] 发布于 2009-12-15 15:13:00
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都是只读状态，不知道哪里出了问题，请老师们帮忙下。
