主题:求助经典问题:grid空白
遇到这样的问题:
点击表单1中的“查询”,
运行表单2,此中grid闪出结果后变成空白。(但是如果新建grid1,则多次查询也没有这个问题。关闭vfp再重新打开,重新运行出现此情况。。)
搜索了一下,发现这个问题是个经典问题。我的问题似乎比别人还简单一些,但是尝试了一些办法仍然无法解决。
目前grid属性如下:grid1.recordsourcetype=1-别名
grid1.recordsource=table1
含有grid的表单2的init事件如下:
select table1
thisform.grid1.recordsource=null
thisform.grid1.recordsource="table1"
set filter to &tj; &&tj为筛选条件,从table1中筛选,
and between(长度,val(alltrim(st)),val(alltrim(ed)))
thisform.refresh
thisform.grid1.refresh
输入查询条件的表单1“查询”按钮如下:
select rabiesinfo
set filter to .t.
*筛选条件编写
public tj
tj=".t."
if not empty(alltrim(thisform.cmb条件1.value))
tj=tj+".and.条件1='"+alltrim(thisform.cmb条件1.value)+"'"
endif
if not empty(alltrim(thisform.cmb条件2.value))
tj=tj+".and. 条件2='"+alltrim(thisform.cmb条件2.value)+"'"
endif
do form form2
thisform.release
还望各位高手不吝赐教!
点击表单1中的“查询”,
运行表单2,此中grid闪出结果后变成空白。(但是如果新建grid1,则多次查询也没有这个问题。关闭vfp再重新打开,重新运行出现此情况。。)
搜索了一下,发现这个问题是个经典问题。我的问题似乎比别人还简单一些,但是尝试了一些办法仍然无法解决。
目前grid属性如下:grid1.recordsourcetype=1-别名
grid1.recordsource=table1
含有grid的表单2的init事件如下:
select table1
thisform.grid1.recordsource=null
thisform.grid1.recordsource="table1"
set filter to &tj; &&tj为筛选条件,从table1中筛选,
and between(长度,val(alltrim(st)),val(alltrim(ed)))
thisform.refresh
thisform.grid1.refresh
输入查询条件的表单1“查询”按钮如下:
select rabiesinfo
set filter to .t.
*筛选条件编写
public tj
tj=".t."
if not empty(alltrim(thisform.cmb条件1.value))
tj=tj+".and.条件1='"+alltrim(thisform.cmb条件1.value)+"'"
endif
if not empty(alltrim(thisform.cmb条件2.value))
tj=tj+".and. 条件2='"+alltrim(thisform.cmb条件2.value)+"'"
endif
do form form2
thisform.release
还望各位高手不吝赐教!