为什么非法重定义变量 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 为什么非法重定义变量

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 3813 人关注过本帖

标题：为什么非法重定义变量

只看楼主加入收藏

sl亮哥

等　级：新手上路
帖　子：44
专家分：5
注　册：2013-4-22
结帖率：88.89%

楼主

已结贴√ 问题点数：10 回复次数：37

为什么非法重定义变量

我在表单中的一个命令按钮写了以下程序，运行时提示非法重定义变量，请问怎么回事，之前没有定义过
public d1,d2
d1=thisform.Text1.value
d2=thisform.Text2.value
do case
case empty(thisform.Text1.value)
MESSAGEBOX("内径不能为空",48,"轴承精度设计系统")
case empty(thisform.Text2.value)
MESSAGEBOX("外径不能为空",48,"轴承精度设计系统")
case d1>500
messagebox("超出范围，请重新输入",48,"轴承精度设计系统")
case d2<d1
messagebox("外径不能小于内径",48,"轴承精度设计系统")
endcase
thisform.release()
do form phxz

搜索更多相关主题的帖子: 设计　轴承　 public　

2013-04-26 08:26

kiff

来　自：广州
等　级：贵宾
威　望：46
帖　子：756
专家分：2531
注　册：2013-1-30

第 2 楼

得分:2

public d1,d2 这句之前有使用过如d1=xx之类的赋值吗，如果有就会这样

2013-04-26 08:45

sdta

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

第 3 楼

得分:5

以下是引用sl亮哥在2013-4-26 08:26:31的发言：

我在表单中的一个命令按钮写了以下程序，运行时提示非法重定义变量，请问怎么回事，之前没有定义过
public d1,d2 &&问题在这，如果先运行主程序MAIN.PRG(会提示：非法重定义变量，说明在主程序中，已经定义了变量D1和D2，此处不能重新定义变量D1和D2，可以换别的变量名(A、B)，等表单调试结束后，去掉变量A、B)，单独运行表单不会出现这种情况
d1=thisform.Text1.value
d2=thisform.Text2.value
do case
case empty(thisform.Text1.value)
MESSAGEBOX("内径不能为空",48,"轴承精度设计系统")
case empty(thisform.Text2.value)
MESSAGEBOX("外径不能为空",48,"轴承精度设计系统")
case d1>500
messagebox("超出范围，请重新输入",48,"轴承精度设计系统")
case d2