以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  记录窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188629)

--  作者:1234567
--  发布时间:2023/10/7 15:07:00
--  记录窗口
SQL表通过Add增加的表达式列,能在记录窗口显示出来吗?
--  作者:有点蓝
--  发布时间:2023/10/7 15:21:00
--  
可以。这种问题试试不就知道了
--  作者:1234567
--  发布时间:2023/10/7 15:37:00
--  
提示,不存在
图片点击可在新窗口打开查看



--  作者:有点蓝
--  发布时间:2023/10/7 15:40:00
--  
代码?http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
--  作者:1234567
--  发布时间:2023/10/7 15:55:00
--  
在窗口事假AfterLoad
DataTables("报价系统_Table1").Load() \'加载数据
Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd2.Table = Tables("报价系统_Table1") \'指定绑定表
rgd2.Columns = "统计刷新|报价|报价系数|材料费|零件加工费|税率|模架费|设计费"
rgd2.Build() \'重新生成记录窗口  

在控件Table1的表事件AfterLoad
DataTables("报价系统_Table1").DataCols.Add("设计费", GetType(Double), "IIf([任务类别] = \'模具新开\'or [任务类别] = \'模具维修\', Convert([报价] * 0.08, \'System.Int32\'), IIf([任务类别] = \'零件加工\',  Null, Null))")




没加设计费时,一切正常

--  作者:1234567
--  发布时间:2023/10/7 16:05:00
--  
图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2023/10/7 16:35:00
--  
Table1的表事件AfterLoad事件代码去掉,放到窗口事件AfterLoad绑定记录窗口前面
--  作者:1234567
--  发布时间:2023/10/7 16:46:00
--  
谢谢蓝老师!