以张三为例,代码如下,改一下来用。
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