windowtype的相关问题！ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → windowtype的相关问题！

标题：windowtype的相关问题！

只看楼主

wangjiayu45

等　级：新手上路
帖　子：187
专家分：0
注　册：2010-4-23
结帖率：83.64%

楼主

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

windowtype的相关问题！

请教下：vfp备注型字段在表单windowtype=1 时，双击不能打开备注型字。windowtype=0时，能打开备注型字。（这没毛病，是windowtype规则）
可我的我的表单必需 windowtype=1 有什么办法能打开备注型字段并能正常录入？

搜索更多相关主题的帖子: 打开　字段　办法　备注型　表单　

2021-06-05 17:19

sdta

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

第 2 楼

得分:10

以下是引用wangjiayu45在2021-6-5 17:19:56的发言：

请教下：vfp备注型字段在表单windowtype=1 时，双击不能打开备注型字。windowtype=0时，能打开备注型字。（这没毛病，是windowtype规则）
可我的我的表单必需 windowtype=1 有什么办法能打开备注型字段并能正常录入？

楼主提的问题表述有毛病

坚守VFP最后的阵地

2021-06-05 17:39

wangjiayu45

等　级：新手上路
帖　子：187
专家分：0
注　册：2010-4-23

第 3 楼

得分:0

回复 2楼 sdta

没毛病呀。现在备注打不开。我用 MODIFY MEMO 备注字段 NOEDIT 可以打开了，但一个字都输入不了。

2021-06-05 17:49

sdta

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

第 4 楼

得分:0

以下是引用wangjiayu45在2021-6-5 17:49:53的发言：

没毛病呀。现在备注打不开。我用 MODIFY MEMO 备注字段 NOEDIT 可以打开了，但一个字都输入不了。

备注字段，在表单上的什么控件中打开

坚守VFP最后的阵地

2021-06-05 18:33

吹水佬

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

第 5 楼

得分:10

回复楼主 wangjiayu45

windowtype=1 时其他窗口是不能活动的
可在当前窗口编辑

[此贴子已经被作者于2021-6-5 20:46编辑过]

2021-06-05 20:45

wangjiayu45

等　级：新手上路
帖　子：187
专家分：0
注　册：2010-4-23

第 6 楼

得分:0

回复 4楼 sdta

表格控件中打开，不能打开

2021-06-07 15:14

吹水佬

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

第 7 楼

得分:0

用个EDITBOX来处理，也不用去双击。

程序代码：

CREATE CURSOR tt (f1 I, f2 M)
INSERT INTO tt VALUES (1,"123"+0h0D+"456"+0h0D+"789")
INSERT INTO tt VALUES (2,"abc"+0h0D+"def"+0h0D+"ghi")
INSERT INTO tt VALUES (3,"ABC"+0h0D+"DEF"+0h0D+"GHI")
GO TOP 
of = CREATEOBJECT("form1")
of.Show(1)
RETURN

DEFINE CLASS form1 AS Form
    ADD OBJECT grid1 AS Grid WITH left=10,top=10,width=150
    ADD OBJECT edit1 AS editbox WITH left=170,top=10,width=150,height=this.grid1.height
    PROCEDURE grid1.AfterRowColChange(nColIndex)
        thisform.edit1.value = tt.f2
    ENDPROC
ENDDEFINE

2021-06-07 15:33

radiofan

等　级：贵宾
威　望：11
帖　子：466
专家分：696
注　册：2006-7-30

第 8 楼

得分:0

以下是引用吹水佬在2021-6-7 15:33:53的发言：

用个EDITBOX来处理，也不用去双击。

CREATE CURSOR tt (f1 I, f2 M)
INSERT INTO tt VALUES (1,"123"+0h0D+"456"+0h0D+"789")
INSERT INTO tt VALUES (2,"abc"+0h0D+"def"+0h0D+"ghi")
INSERT INTO tt VALUES (3,"ABC"+0h0D+"DEF"+0h0D+"GHI")
GO TOP
of = CREATEOBJECT("form1")
of.Show(1)
RETURN

DEFINE CLASS form1 AS Form
    ADD OBJECT grid1 AS Grid WITH left=10,top=10,width=150
    ADD OBJECT edit1 AS editbox WITH left=170,top=10,width=150,height=this.grid1.height
    PROCEDURE grid1.AfterRowColChange(nColIndex)
        thisform.edit1.value = tt.f2
    ENDPROC
ENDDEFINE

用户习惯去点击memo