前段时间，用SQL数据库，在本地测试时，表格没有白屏现象，但通过VPN连接到不同局域网的SQL数据库时，由于网速慢，以前的查询用到表格Grid时，发现有白屏现象。
以前是这样查询的，
sqlexec(nhandle,'select * from sql_table','sql_table')
select * from sql_table into curs  sql_table_tmp readwrite
use in sql_table
select sql_table_tmp
THISFORM.Grid1.RECORDSOURCE=''
THISFORM.Grid1.COLUMNCOUNT = -1
THISFORM.Grid1.RECORDSOURCE=ALIAS()
当重复按查询按钮时，我发现不在同一个局域网时，在查询回来的数据量很大的时候，会出现表格白屏，
今天无意发现，在查询前，先修改表格的数据源，竟然无意解决了这个白屏问题
把以上语句改为。

**清空表格，同时更换数据源，防止查询过程表格出现白屏，没这段会白屏
select * from sql_table_tmp where .f. into curs sql_table_tmp1
select sql_table_tmp1
THISFORM.Grid1.RECORDSOURCE=''
THISFORM.Grid1.COLUMNCOUNT = -1
THISFORM.Grid1.RECORDSOURCE=ALIAS()
thisform.grid1.Refresh

sqlexec(nhandle,'select * from sql_table','sql_table') &&先查询数据到sql_table，不能写的
select * from sql_table into curs  sql_table_tmp readwrite &&把查询数据改为可以写的表去sql_table_tmp
use in sql_table &&关闭临时表
select sql_table_tmp &&表格的数据源sql_table_tmp
THISFORM.Grid1.RECORDSOURCE=''
THISFORM.Grid1.COLUMNCOUNT = -1
THISFORM.Grid1.RECORDSOURCE=ALIAS()
求分享

[此贴子已经被作者于2015-12-13 16:50编辑过]

我本来就是，先查询，然后在更新表格的数据源，就是会白屏，（我说的白屏，是连接其他内不同局域网的SQL数据库，由于网速慢，也不是慢，就是没局域网快）
由于，查询按钮可以，查询多次，按第1次，按第2次，对表格来说，他的数据源都是同1个表格，“先查询数据，获得有效的临时表之后再更新表格的数据源如何”他的数据源还是同1个名称。。
但我发现，在内网，就不会白屏，我在查询之前，把表格的数据源更换为其他的数据源后，等到查询数据回来了，再更换会来，就不会出现白屏了。。
至于是什么原因，就不知道了。。

我查询数据后，马上
THISFORM.Grid1.RECORDSOURCE=''
THISFORM.Grid1.COLUMNCOUNT = -1
THISFORM.Grid1.RECORDSOURCE=ALIAS()
还不算及时啊？同样的程序，用本机（内网）的SQL数据库测试，好像看不到白屏现象，不知道是本地SQL数据库读取快，“白屏”闪就过了还是什么，反正看不到。
但用外网的SQL数据库，在读取回来的数据量比较多的时候，就有，明显的白屏现象，如果回来的数据少的时候，没明显白屏。

按T版的说法，怎么处理?还是用我自己说的方法？查询之前，清空数据，更换数据源？

还能这样的啊。又学到了。
zap in (THISFORM.Grid1.RECORDSOURCE)
select (THISFORM.Grid1.RECORDSOURCE)

你是说把这3句：
THISFORM.Grid1.RECORDSOURCE=''
THISFORM.Grid1.COLUMNCOUNT = -1
THISFORM.Grid1.RECORDSOURCE=ALIAS()
改为：
THISFORM.Grid.RecordSource=NULL
THISFORM.Grid1.COLUMNCOUNT = -1
THISFORM.Grid1.RECORDSOURCE=ALIAS()

我查询回来的结果，不是直接用sql_table表的，因为这个表是不可以修改的，我要转为可以修改的。
比如
THISFORM.Grid1.RECORDSOURCE=NULL  &&加这句？
sqlexec(nhandle,'select * from sql_table','sql_table')
if used("sql_table")
   select * from sql_table into cursor sql_table_tmp READWRITE
   use in sql_table
else
  create cursor sql_table_tmp(bh c(16),.....)
endif
select sql_table_tmp
THISFORM.Grid1.RECORDSOURCE=''  &&难道这句不要？
THISFORM.Grid1.COLUMNCOUNT = -1
THISFORM.Grid1.RECORDSOURCE=ALIAS()
我的GRID数据源，不是直接sql_table，也要先THISFORM.Grid1.RECORDSOURCE=NULL吗？
我这几天，测试，有时候会白屏。有时候不会，不是次次会。。。

[此贴子已经被作者于2015-12-21 13:40编辑过]

我的白屏出现在下面的情况：
1、我SQL2000不在局域网内的机器上；同1个局域网的机器，“好像”没白屏现象。
2、我是通过向日葵的VPN功能，在家里连接到公司的SQL2000上，测试时，才发现有白屏现象，但不是次次有有白屏。以前测试，用本地的SQL2000不会的。
3、我是在从SQL2000查询数据回来的时候才会白屏，在按“查询数据”按钮后，到数据完全回来的过程中出现白屏，等到数据完全回来了，白屏消失，显示正常。

好的，我要找个数据量大的，网络慢的时候，才能测试出来。
要是数据量少，网快的时候，就不白屏的，我昨天测试了好几次，都不出现。

先建立一个临时表？在把查询回来的数据更新到临时表？
create cursor t1(bh c(20),xm c(20)....)
sqlexec(nhandle,'select bh,xm,,,, from sql_table where ....','sql_table')
if used('sql_table')
   select t1
   zap in t1
   append from sql_table &&和append from dbf('sql_table') 有什么不同
   use in sql_table
endif
大概是这样？

[此贴子已经被作者于2015-12-22 15:07编辑过]