以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师,麻烦帮我看下代码哪里出错,谢谢!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98667)

--  作者:jick0526
--  发布时间:2017/4/4 20:25:00
--  老师,麻烦帮我看下代码哪里出错,谢谢!

If e.DataCol.Name = "B列" AndAlso Forms("表B主窗口").Opened
    Dim txtbox As WinForm.numericComboBox = Forms("表A主窗口").Controls("库存")
    txtbox.Value =Forms("表B主窗口").Controls("Sum(B列)")
End If

老师,麻烦帮我看下,上面的代码哪里错了,我想要达到这样的效果,
表B的B列总和会自动输入到表A的“库存”数值框里,麻烦老师帮我改下,谢谢!

--  作者:有点蓝
--  发布时间:2017/4/4 20:57:00
--  
If e.DataCol.Name = "B列" AndAlso Forms("表B主窗口").Opened
    Dim txtbox As WinForm.numericComboBox = Forms("表B主窗口").Controls("库存")
    txtbox.Value =e.DataTable.Compute("Sum(B列)")
End If