- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]临时表给控件赋值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174639)
-- 发布时间：2022/1/24 21:18:00
-- [求助]临时表给控件赋值
此主题相关图片如下：微信图片_20220124211620.png
如图，表格是一个临时表，如何实现在数量列录入数量的时候，同时给底下的数量合计控件赋值合计数量
-- 发布时间：2022/1/24 21:20:00
--
把窗口表设置为sqltable，然后到窗口表事件datacolchanged给控件赋值
-- 发布时间：2022/1/24 21:33:00
--
我是这样做的，但结果出不来
Select Case e.DataCol.Name
Case "数量"
Dim sl As Double
sl = Tables("开具入库单_Table1").Compute("Sum(数量)")
e.Form.Controls("hjsl").value = sl
End Select
-- 发布时间：2022/1/24 21:35:00
--
表控件是怎么绑定临时表的？
-- 发布时间：2022/1/24 21:58:00
--
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("成品名称", Gettype(String), 32)
dtb.AddDef("型号", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Double))
dtb.AddDef("单价", Gettype(Double))
dtb.AddDef("金额", Gettype(Double))
dtb.AddDef("附注", Gettype(String), 255)
dtb.Build()
Tables("统计").AddNew(8)
Tables("开具入库单_Table1").DataSource=DataTables("统计")
-- 发布时间：2022/1/24 22:01:00
--
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("成品名称", Gettype(String), 32)
dtb.AddDef("型号", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Double))
dtb.AddDef("单价", Gettype(Double))
dtb.AddDef("金额", Gettype(Double))
dtb.AddDef("附注", Gettype(String), 255)
Tables("开具入库单_Table1").DataSource=dtb.BuildDataSource()
Tables("开具入库单_Table1").AddNew(8)