以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 插口中某插件数值变化时,窗口中表数据自动更新 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97971) |
-- 作者:hopestarxia -- 发布时间:2017/3/21 22:54:00 -- 插口中某插件数值变化时,窗口中表数据自动更新 制作了一个窗口如图: 想在如果表窗口中如果TextBox插件“汇率”的值如果发生修改变化时, 自动重新计算窗口中关联的Table1表, 需要重计算的列为: 本币单价列=合同币单价列*汇率插件 本币金额列=合同币单价列*数量列*汇率插件 请问窗口中汇率插件的ValueChanged事件中代码如何定义。
|
-- 作者:wyz20130512 -- 发布时间:2017/3/22 0:24:00 -- ValueChanged事件代码: Dim t As Table = Tables(e.Form.Name & "_table1") Dim v As WinForm.TextBox = e.Sender With t.DataTable .SQLReplaceFor("本币单价","合同币单价 * " & Val(v.Value),"",True) .SQLReplaceFor("本币金额","合同币单价 * 数量 * " & Val(v.Value),"",True) .LoadFilter = "" .Load() End With [此贴子已经被作者于2017/3/22 1:01:45编辑过]
|
-- 作者:hopestarxia -- 发布时间:2017/3/22 1:29:00 -- 谢谢老师。 |