以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗体计算结果向表单元格填充问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127698)
--  作者：fytea
--  发布时间：2018/11/20 12:27:00
--  窗体计算结果向表单元格填充问题

Dim t As WinForm.TextBox = e.Form.Controls("TextBox2")
 Tables("教学设计评价量表").Current("综合加权得分") =e.Sender.WriteValue("t")

结果是：
对类型“Button”的调用“Public Sub WriteValue()”返回 Nothing。

老师帮我
--  作者：有点甜
--  发布时间：2018/11/20 12:37:00
--  
Dim t As WinForm.TextBox = e.Form.Controls("TextBox2")
Tables("教学设计评价量表").Current("综合加权得分") = t.text
--  作者：fytea
--  发布时间：2018/11/20 23:53:00
--  

老师，求解这个问题

 

Dim bl As WinForm.Label = e.Form.Controls("Label32")
Dim n1 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim n2 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim n3 As WinForm.TextBox = e.Form.Controls("TextBox4")
bl.text = "您给" & forms("教学设计评价").Controls("ComboBox6").value  & "老师评议得分为" & vbcrlf  & (n1 + n2 + n3) & "分"
--  作者：有点甜
--  发布时间：2018/11/21 8:50:00
--  
Dim bl As WinForm.Label = e.Form.Controls("Label32")
Dim n1 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim n2 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim n3 As WinForm.TextBox = e.Form.Controls("TextBox4")
bl.text = "您给" & forms("教学设计评价").Controls("ComboBox6").value  & "老师评议得分为" & vbcrlf  & (val(n1.text) + val(n2.text) + val(n3.text)) & "分"