主题：请教表达式求值代码

代码：

Dim s As String = e.Form.Controls("TextBox1").Value
If s > "" Then
    e.Form.Controls("TextBox2").Value = eval(s)
End If

参考：

http://www.foxtable.com/help/topics/1277.htm