vb 关于跳过某段程序 高手来！！！

有如下一段代码：这段代码就是修改人体身高的。
……
Set sWKAnthroVariable1 = sWKAnthro1.GetItem("<STATURE>") sWKAnthroVariable1.ValueAsString = Val(Me.Text1.Text) & "mm"……其中“Val(Me.Text1.Text) & "mm" ”  将 返回Text1中的数值与单位“mm”（毫米）一起赋给变量“身高”想实现如下功能：当在Text1中没有输入任何值的时候，即：Text1中的值为空时，程序自动跳过此段代码（即：不修改身高），继续执行下面的代码，如果Text1中的值不为空，则执行这段代码。哪位大侠知道如何实现？能不能说详细点，谢谢啦~

解决方案 »

  1.   

    把你的代码放在下面的if 和 end if之间就行了
    If Len(LTrim(Text1.Text)) > 0 Then
    你的代码
    End If
      

  2.   

    这样一来, 如果text1中如无内容或都是空格,你的程序段不会执行
    而是直接执行end if后的代码
      

  3.   


    大侠，谢谢你啊！！！
    如果这段代码不仅有身高，还有 体重怎么办，就是说 要跳过两段代码，即：Text1和Text2都为空则跳过，继续执行下面的代码，怎么写？
    ……Set sWKAnthroVariable1 = sWKAnthro1.GetItem("<STATURE>") 
    sWKAnthroVariable1.ValueAsString = Val(Me.Text1.Text) & "mm"Set sWKAnthroVariable2 = sWKAnthro1.GetItem("<WEIGHT>")  sWKAnthroVariable2.ValueAsString = Val(Me.Text2.Text) & "kg"
    ……
      

  4.   

    If IsNumeric(Text1.Text) Then sWKAnthroVariable1.ValueAsString = Val(Me.Text1.Text) & "mm"