标题:VFP form 里 grid 控件的显示问题,鼠标点击后form控件全部消失
取消只看楼主
tondo1000
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-12-13
结帖率:0
已结贴  问题点数:20 回复次数:3 
VFP form 里 grid 控件的显示问题,鼠标点击后form控件全部消失
我在form 里 加入 2个grid控件。run运行后,如果没有指定数据源表,则一切正常。
一旦指定数据源表,显示数据一切正常。但是鼠标不能在Grid的范围内点击,只要点击,则所有form 上的控件都消失不见,form也被拉的无限大。
只能通过VFP菜单里的close关闭。
窗体代码检查过了,并没有找到相关的代码
WIN 8
VFP 9 英文版。
SP2也打了

怎么也弄不好了,苦恼啊。
搜索更多相关主题的帖子: VFP form grid 控件 点击 
2017-12-13 19:53
tondo1000
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-12-13
得分:0 
如下是Form init的代码
 set century on
 SET DATE ANSI
 SET SAFETY OFF
 
 PUBLIC cvalue
 PUBLIC nmanual
 PUBLIC nbatch
nmanual = 0
nbatch = 0

thisform.label2.Visible = .f.
thisform.text1.Visible = .f.
thisform.label3.Visible = .f.
thisform.text2.Visible = .f.
thisform.label5.Visible = .f.
thisform.text3.Visible = .f.
thisform.label4.Visible = .f.
thisform.text4.Visible = .f.

OPEN DATABASE inter_calculate EXCLUSIVE

USE create_po_input IN 1
SELECT 1
ZAP

USE create_po_DISPLAY IN 2
SELECT 2
ZAP

USE po_HISTORY IN 3
SELECT 3
ZAP

thisform.text1.MaxLength = 6
thisform.text2.MaxLength = 10
thisform.text3.MaxLength = 10
thisform.text4.MaxLength = 5


APPEND FROM po_record FIELDS create_date,vendor_code,vendor_name,material,qty
*SET ORDER TO  create_date



    thisform.grid1.column1.header1.caption = "Date    "
    thisform.grid1.column2.header1.caption = "Code  "
    thisform.grid1.column3.header1.caption = "Name                 "
    thisform.grid1.column4.header1.caption = "Material          "
    thisform.grid1.column5.header1.caption = "qty        "
    thisform.grid1.autofit
    thisform.grid1.FontSize = 9
    thisform.grid1.RecordSourcetype = 1
    thisform.grid1.RecordSource = 'po_history'
    thisform.grid1.Refresh
2017-12-13 20:12
tondo1000
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-12-13
得分:0 
只有这一个地方涉及到这个GRID控件的显示数据源,运行后,鼠标在Grid的范围内点一下,form控件全部消失,form本身也放大到非常大,且无法缩小和关闭,只能VFP菜单close来关闭
2017-12-13 20:15
tondo1000
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-12-13
得分:0 
终于找到问题所在。默认的form长宽都很大,把这2个值都改成跟屏幕尺寸一样就OK拉
2017-12-15 07:40



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-483352-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.079637 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved