主题：求助: 要求在窗口内

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

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

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

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