以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]★大神进★如何实现数据换算之后录入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51022)

--  作者:hiyard
--  发布时间:2014/5/17 14:21:00
--  [求助]★大神进★如何实现数据换算之后录入
 
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140517134957.png
图片点击可在新窗口打开查看
比如我做了这个录入窗口
 如果用户先择的金额单位是“美元” ,那么直接录入绑定的列。
 如果选择的金额单位是其他,则换算成美元,然后录入绑定的列。
汇率可以自己设置,不要调用在线数据,因为是本地用,连不上网。
各位大神有方法吗?

已经上传了例子。。。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.zip


[此贴子已经被作者于2014-5-17 15:31:40编辑过]

--  作者:hiyard
--  发布时间:2014/5/17 14:23:00
--  
跪求大神指导啊
--  作者:Bin
--  发布时间:2014/5/17 14:24:00
--  
很简单,请上例子.
--  作者:Bin
--  发布时间:2014/5/17 14:25:00
--  
需要有一个汇率表哦.
--  作者:hiyard
--  发布时间:2014/5/17 14:27:00
--  
大神我爱你,快来指点小弟啊
--  作者:Bin
--  发布时间:2014/5/17 14:35:00
--  
请上例子.
--  作者:hiyard
--  发布时间:2014/5/17 14:58:00
--  
传了呢
--  作者:Bin
--  发布时间:2014/5/17 15:08:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:hiyard
--  发布时间:2014/5/17 15:32:00
--  
大神,能传个.table格式的吗?不胜感结啊,例子已经更新了。
--  作者:Bin
--  发布时间:2014/5/17 15:34:00
--  
ComboBox  

TextChanged事件

Dim dr As DataRow = DataTables("汇率表").Find("货币类型=\'" & e.Sender.text & "\'")
If dr IsNot Nothing Then
    Tables("贸易情况").Current("贸易额")=Tables("贸易情况").Current("贸易额") * dr("美元")
End If