代码写入“TextBox4”控件的Enter事件中：
Dim t4 As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim t3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If t1.Value = "产品" Then
If t2.Value = "产品1" Then
Select Case t3.Value
Case Is < 30
t4.Value = 15 & "度"
Case Is >= 30
t4.Value = 19 & "度"
End Select
ElseIf t2.Value = "产品2"
Select Case t3.Value
Case Is < 30
t4.Value = 16 & "度"
Case Is >= 30
t4.Value = 20 & "度"
End Select
End If
End If
[此贴子已经被作者于2018/3/25 19:39:49编辑过]
加好友 
发短信
Post By：2018/3/25 19:39:00 [显示全部帖子]
