请问如何动态限制表格输入数据范围

[xld2001]

新建方法程序 aa
然后在init
= Bindevent(Thisform.Grid1.Columns(1).text1, "RangeLow", Thisform, "aa")
怎么不好用？

如果直接在表格的RangeLow输入 return 0 就可以

[都市夜猫]

这个还真不好说，不知道 vfp 开发团队一开始是怎样想的 很多 vfp 独有的事件，例如你遇到的这个，以及 When、Valid 等等，要想后期绑定成功的话，原事件中必须有代码，哪怕只是一行注释。 你在 text1 的 RangeLow 事件中仅输入一个星号（*）就可以看到效果 所以，一般不要绑定这些事件，如有更通用的就用更通用的，例如 RangeLow 可以用 LostFocus 来替代，并用 nodefault 语句来阻止控件丢失焦点

[xld2001]

感谢老师多次帮助，谢谢

[xld2001]

= Bindevent(Thisform.Grid1.Columns(1).text1, "LostFocus", Thisform, "aa") 老师这样焦点是离不开，可用鼠标点也没反应 不能事先向 RangeLow 中加，表格是动态加载的

[都市夜猫]

你都没判断用户输入的值是否有效就直接 Nodefault，当然永远不可能离开 至少得这样吧：

If AEvents(aTemp, 0) > 0
	oo = aTemp[1]
	If (Vartype(oo) == 'O') and (oo.Value <= 0)
		MessageBox('有效值必须大于 0')
		oo.Parent.SetFocus()
		oo.SetFocus()
		NoDefault
	EndIf
EndIf