Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗体计算结果向表单元格填充问题


  共有1622人关注过本帖树形打印复制链接

主题：窗体计算结果向表单元格填充问题
帅哥哟，离线，有人找我吗？
fytea
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：787 积分：6175 威望：0 精华：0 注册：2015/7/25 19:14:00 		窗体计算结果向表单元格填充问题  发帖心情 Post By：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。

老师帮我
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/20 12:37:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
fytea
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：787 积分：6175 威望：0 精华：0 注册：2015/7/25 19:14:00 		  发帖心情 Post By：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) & "分"
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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)) & "分"

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.46094 秒, 4 次数据查询