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


  共有3944人关注过本帖平板打印复制链接

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

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


加好友 发短信
等级:超级版主 帖子:106558 积分:541955 威望: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

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