以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  插口中某插件数值变化时,窗口中表数据自动更新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97971)

--  作者:hopestarxia
--  发布时间:2017/3/21 22:54:00
--  插口中某插件数值变化时,窗口中表数据自动更新
制作了一个窗口如图:
想在如果表窗口中如果TextBox插件“汇率”的值如果发生修改变化时,
自动重新计算窗口中关联的Table1表,
需要重计算的列为:
本币单价列=合同币单价列*汇率插件
本币金额列=合同币单价列*数量列*汇率插件
请问窗口中汇率插件的ValueChanged事件中代码如何定义。

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170321224701.png
图片点击可在新窗口打开查看


--  作者: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
--  
谢谢老师。