Foxtable(狐表)用户栏目专家坐堂 → [求助] 货币转换自动填入


  共有3873人关注过本帖树形打印复制链接

主题:[求助] 货币转换自动填入

帅哥哟,离线,有人找我吗?
sanny
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/15 22:49:00 [只看该作者]

老师,我在按钮边增加个文本框,里面比如填 201811,然后就带出changerate表中相应的汇率来计算。谢谢支持。


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/15 22:56:00 [只看该作者]

Dim t1 As Table = Tables("Shipment")
Dim t2 As Table = Tables("Shipment.GSSInvoice")
Dim dt As DataTable = DataTables("ExchangeRate")
Dim fdr As DataRow = dt.Find("month = '" & e.form.controls("textbox1").text & "'")
If fdr IsNot Nothing Then

   msgbox(fdr("EUR"))
    For Each r As Row In t2.Rows
        r("ExchangeRate") = r("TotalPrice") * fdr("EUR")
    Next
Else
    msgbox("没找到汇率")
End If


 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/16 20:29:00 [只看该作者]

老师好,

 

因为表中有USD,CHF 以及EUR, 所以 exchangerate 需填入相应的汇率,

 

比如遇USD,那exchangerate列就写入 汇率表中的 USD 汇率 除以 EUR ,

比如遇EUR,那exchangerate列就写入 汇率表中的 EUR 汇率 除以 EUR ,

比如遇CHF,那exchangerate列就写入 汇率表中的 CHF 汇率 除以 EUR

 

Currency 列就写入EUR

 

这个可以吗? 感谢老师再次出手相助。


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

 回到顶部
帅哥,在线噢!
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/16 21:02:00 [只看该作者]

例如

if e.datacol.name = "poCurrency"
    Dim fdr As DataRow = DataTables("汇率表").Find("Currency = '" & e.newvalue & "'")
    If fdr IsNot Nothing Then
       e.datarow("exchangerate") = fdr(e.newvalue) / fdr("EUR")
    end if
end if

 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/16 21:26:00 [只看该作者]

老师这个出现错误 了,请查看。 另外我是想要选好月份后,在上面的文本框中选择。再按转换成EUR按钮,再执行转换,可以吗?


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

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

 回到顶部
帅哥,在线噢!
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/16 21:40:00 [只看该作者]

Dim t1 As Table = Tables("Shipment")
Dim t2 As Table = Tables("Shipment.GSSInvoice")
Dim dt As DataTable = DataTables("ExchangeRate")
Dim fdr As DataRow = dt.Find("month = '" & e.form.controls("textbox1").text & "'")
If fdr IsNot Nothing Then

   msgbox(fdr("EUR"))
    For Each r As Row In t2.Rows
        r("ExchangeRate") = fdr(r("
poCurrency")) * fdr("EUR")

    Next
Else
    msgbox("没找到汇率")
End If


 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/16 22:15:00 [只看该作者]

老师,图1,是刚计算的结果, 图2 是我想要的,图3是汇率表,再麻烦一下。不好意思了。
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2018/11/16 22:19:00 [只看该作者]

exchangerate = 表中的pocurrency 找到所选月份的汇率 除以 要转换汇率EUR 所选月份的汇率,currency列再写入转换后的汇率。

 回到顶部
帅哥,在线噢!
有点蓝
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/16 22:53:00 [只看该作者]

代码没有问题,上传实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2018/11/16 23:03:00 [只看该作者]

老师,请过目
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.table


 回到顶部
总数 37 上一页 1 2 3 4 下一页