VB 计算文本框提交的值

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Function calc(ByVal x As String) As String
ExecuteLine "dim x as double"
ExecuteLine "x= " & T1.text
ExecuteLine "clipboard.settext x"
T2 = Clipboard.GetText
End Function

解题思路就是把T1当成脚本给VBS运行，然后把结果放到剪贴板里面，然后把剪贴板粘到T2里面
否则你需要自己去解析这个字符串进行四则混合运算。

update 表名 set 列名=列名+新值