以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助: 要求在窗口内  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54030)
--  作者：jianjingmaoyi
--  发布时间：2014/7/20 16:45:00
--  求助: 要求在窗口内
要求在窗口:

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:例子.foxdb
--  作者：有点甜
--  发布时间：2014/7/20 17:00:00
--  

 以张三为例，代码如下，改一下来用。

 

Dim nums() As Integer = {1, 2, 3}
Dim filter As String = "客户名称 = \'" & "张三" & "\'"
Dim fdr_hm As DataRow = DataTables("号码管理").Find(filter)
Dim fdr_pl As DataRow = DataTables("赔率设置").Find(filter)
Dim fdr_hs As DataRow = DataTables("回水设置").Find(filter)
Dim ndr As DataRow = DataTables("兑奖").AddNew
ndr("客户名称") = "张三"
For Each num As Integer In nums
    ndr("金额_" & num) = fdr_hm("号码_" & num) * fdr_pl("赔率_" & num) * fdr_hs("回水_" & num)
Next
--  作者：jianjingmaoyi
--  发布时间：2014/7/20 17:09:00
--  
谢谢 我已经写出来了 但是保留着这个计算
--  作者：jianjingmaoyi
--  发布时间：2014/7/20 17:37:00
--  
甜总 不对,你这个代码缺少一个前提:


需要根据窗口内 7个文本框的输入的值,去找号码管理表内 列后缀的那个列里面的值 ,再根据这个值去计算.
[此贴子已经被作者于2014-7-20 17:37:06编辑过]
--  作者：有点甜
--  发布时间：2014/7/20 17:42:00
--  

呃，你替换红色代码为变量，关键是你要看懂代码。

 

Dim nums() As Integer = {1, 2, 3}
Dim filter As String = "客户名称 = \'" & "张三" & "\'"
Dim fdr_hm As DataRow = DataTables("号码管理").Find(filter)
Dim fdr_pl As DataRow = DataTables("赔率设置").Find(filter)
Dim fdr_hs As DataRow = DataTables("回水设置").Find(filter)
Dim ndr As DataRow = DataTables("兑奖").AddNew
ndr("客户名称") = "张三"
For Each num As Integer In nums
    ndr("金额_" & num) = fdr_hm("号码_" & num) * fdr_pl("赔率_" & num) * fdr_hs("回水_" & num)
Next
--  作者：程兴刚
--  发布时间：2014/7/20 17:43:00
--  
以下是引用jianjingmaoyi在2014-7-20 17:37:00的发言：
甜总 不对,你这个代码缺少一个前提:


需要根据窗口内 7个文本框的输入的值,去找号码管理表内 列后缀的那个列里面的值 ,再根据这个值去计算.
[此贴子已经被作者于2014-7-20 17:37:06编辑过]

 

您已经写出来了用您的不就OK了！
--  作者：jianjingmaoyi
--  发布时间：2014/7/20 17:45:00
--  
老程 看看有无简单的方法嘛!
--  作者：程兴刚
--  发布时间：2014/7/20 17:55:00
--  

但我没看明白，怎么找？

1、找到的列是空值呢？计算结果肯定是0，对吧？

2、比如：找到两个或两个以上的值呢？