用brow查询，怎么样在grid中显示？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 用brow查询，怎么样在grid中显示？

标题：用brow查询，怎么样在grid中显示？

只看楼主

yytx11

等　级：新手上路
帖　子：134
专家分：0
注　册：2017-8-12
结帖率：68.18%

楼主

已结贴√ 问题点数：20 回复次数：12

用brow查询，怎么样在grid中显示？

这样运行没有问题，但是点查询后，会跳出表，而不能在grid中显示，请问如何写代码，谢谢。

搜索更多相关主题的帖子: 查询　怎么样　 grid　显示　代码　

2017-09-06 23:39

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 2 楼

得分:10

用select查询

2017-09-07 04:45

hu9jj

来　自：红土地
等　级：贵宾
威　望：396
帖　子：11713
专家分：43267
注　册：2006-5-13

第 3 楼

得分:10

brow命令有自己专属的窗口，如果想在自己设计的窗口中用grid控件显示，只要将grid控件的数据源绑定表就行，表可以是数据库表，也可以是查询得到的临时表。

活到老，学到老！ http://www. E-mail:hu-jj@

2017-09-07 07:48

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 4 楼

得分:0

browse name og
然后设置表格控件属性

坚守VFP最后的阵地

2017-09-07 11:34

yytx11

等　级：新手上路
帖　子：134
专家分：0
注　册：2017-8-12

第 5 楼

得分:0

回复 4楼 sdta

thisform. grid1.name = "grdcur"
cj = ALLTRIM(thisform.Text1.value)
gys = ALLTRIM(thisform.Text2.value)
spm =ALLTRIM(thisform.Text3.value)
mcc =ALLTRIM(thisform.Text4.value)
cmd = "BROWSE FOR .t."
IF !EMPTY(cj)
cmd = cmd + "and UPPER(cj) $ UPPER(厂家 )"
ENDIF
IF !EMPTY(gys)
cmd = cmd + "and UPPER(gys) $ UPPER(供应商)"
ENDIF
IF !EMPTY(spm)
cmd = cmd + "and UPPER(spm) $ UPPER(商品名)"
ENDIF
IF !EMPTY(mcc)
cmd = cmd + "and UPPER(mcc) $ UPPER(名称 ) name GrdCur "
ENDIF

&cmd

thisform.grdcur.column1.width = 30
thisform.grdcur.column2.width = 100
thisform.grdcur.column3.width = 100
thisform.grdcur.column1.BackColor = RGB(220,220,220)
thisform.grdcur.GridLineColor= RGB(128,128,128)

thisform.grdcur.column1.sparse = .F.
thisform.grdcur.column1.Alignment = 2

2017-09-07 17:24

yytx11

等　级：新手上路
帖　子：134
专家分：0
注　册：2017-8-12

第 6 楼

得分:0

我改成这样了，发现查询后，还是没有显示在grid中啊

2017-09-07 17:25

yytx11

等　级：新手上路
帖　子：134
专家分：0
注　册：2017-8-12

第 7 楼

得分:0

回复 3楼 hu9jj

browse 的没有办法绑定 grid啊。。他不是SQL语句

2017-09-07 17:39

mywisdom88

等　级：版主
威　望：190
帖　子：3125
专家分：8340
注　册：2015-3-25

第 8 楼

得分:0

cj = ALLTRIM(thisform.Text1.value)
gys = ALLTRIM(thisform.Text2.value)
spm =ALLTRIM(thisform.Text3.value)
mcc =ALLTRIM(thisform.Text4.value)
cmd = "select * from 你表名称 where .t. "
IF !EMPTY(cj)
cmd = cmd + "and UPPER(cj) $ UPPER(厂家 )"
ENDIF
IF !EMPTY(gys)
cmd = cmd + "and UPPER(gys) $ UPPER(供应商)"
ENDIF
IF !EMPTY(spm)
cmd = cmd + "and UPPER(spm) $ UPPER(商品名)"
ENDIF
IF !EMPTY(mcc)
cmd = cmd + "and UPPER(mcc) $ UPPER(名称 ) name GrdCur "
ENDIF
cmd = cmd + " into cursor tmp_你表 readwrite"
&cmd

2017-09-07 17:59

yytx11

等　级：新手上路
帖　子：134
专家分：0
注　册：2017-8-12

第 9 楼

得分:0

回复 8楼 mywisdom88

browse不能吗

2017-09-07 18:04

sdta