Question

大神，在VB中有text中未输入值时，在单击计算按钮时怎么返回未输入值的text中

有多个text，因为text值未输入会导致公式里分母等于零，从而程序终止运行，我想用On Error GoTo Line但不会，text已编为数组，用msgbox但每个未输入值都会弹出一个msgbox包括那些enabled的text控件，并且在还没有重新输入值时，程序已经自动运行计算按钮的程序了....菜鸟求解答，分少，希望不介意

Answer 1

在计算之前先检查text，若它的值为空（如text(2).text="")则输出这个text为空。
如:
for i=0 to 8'如果下标是从0至8
if text(i).text="" the
msgbox "序号为" & i & " 的文本框为空值"
Text(i).SetFocus'设置为输入焦点
exit sub
next i
试试吧。

追问

哦，我知道了
for i=0 to 18
if text1(i).text="" and Text1(i).Enabled = True then
msgbox "序号为" & i & " 的文本框为空值"
Text1(i).SetFocus
exit sub
end if
next i
哎，真的是非常感谢！第一次发布问题，真心感觉到了这个大家庭的温暖啊！！

Answer 2

对于数组控件，要单独提出来，还有一个index属性

在没有输入值时，运算就不应该进行，不然对于复杂运算，你会造成很大的运算误差。

可以使用 isnumeric()方法在运算前，对所有text的值进行验证，如果有false返回的，就终止继续，并且提出这个位置窗口弹出。

追问

那该怎么写呢，谢谢

追答

运算之前，检验一下运算数据之间的相互关系，和合法性，你参考一下
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=74253&lngWId=1

大叔只能帮到这里了。

追问

虽然没看懂，还是谢了

Answer 3

dim c as control
for each c in text数组
if c.text="" then msgbox "未输入值"

c.setfocus

next

追问

我的 text（i）.text, i=0 to 18, 如果有几个都未输入那光标怎么停留在靠前的，怎么写啊，谢谢

追答

text（i）.text, i=18 to 0 step -1
反向检查

追问

谢了哈