主题：[求助]设计了窗口，在窗口中调用数据表数据计算，可以在窗口中输出计算结果，并可以复制出来，无从下手写代码的困惑，请指教下，多谢。

 那你可以直接引用表内容

 比如，当前行，就直接写 Dim nr As Row = Tables("表A").Current

 要用到某列，就写 nr("第一列")

你datacolchanged事件有计算公式，那你直接弄出来改改就行。

上传实例说明

 回复12楼，没看懂你什么意思。

 请举例说明，填入什么数值，经过怎样的运算，最后得到什么结果。

日均减量的模式，没看懂你表达的意思。

或者你参考增量的方式自己改一下代码

Dim fy As Double = 300
Dim lv As Double = 0.02
Dim ts As Integer = 20
Dim dt As DataTable = DataTables("出纳交易数据")
For Each dr As DataRow In dt.DataRows
    Dim rjzl As Double = dr("日均存款金额") - dr("日均取款金额")
    If rjzl >= 0 Then
        Dim maxts As Integer = Math.Floor(dr("出纳存款上限") / rjzl)
        If maxts < ts Then ts = maxts
        Dim mincb As Double = 99999
        Dim mints As Integer
        For i As Integer = 1 To ts
            Dim cb As Double = rjzl*i*lv/360+fy/i
            If cb < mincb Then
                mincb = cb
                mints = i
            End If
            output.show(dr("出纳号") & " " & i & "天成本 " & cb)
        Next
        msgbox(dr("出纳号") & " " & mints & "天成本最低 " & mincb)
    Else
        Dim rjjl As Double = -rjzl
    End If
Next

在命令窗口执行，参考代码

Dim fy As Double = 300
Dim lv As Double = 0.02
Dim zts As Integer = 20
Dim x As Double = 50000
Dim dt As DataTable = DataTables("出纳交易数据")
For Each dr As DataRow In dt.DataRows
    Dim ts As Integer = zts
    Dim rjzl As Double = dr("日均存款金额") - dr("日均取款金额")
    If rjzl >= 0 Then
        Dim maxts As Integer = Math.Floor(dr("出纳存款上限") / rjzl)
        If maxts < ts Then ts = maxts
        Dim mincb As Double = 99999
        Dim mints As Integer
        For i As Integer = 1 To ts
            Dim cb As Double = rjzl*i*lv/360+fy/i
            If cb < mincb Then
                mincb = cb
                mints = i
            End If
            output.show(dr("出纳号") & " " & i & "天成本 " & cb)
        Next
        msgbox(dr("出纳号") & " " & mints & "天成本最低 " & mincb)
    Else
        Dim rjjl As Double = -rjzl
        Dim minje As Double
        Dim minallcb As Double = 99999
        Dim minallts As Integer
        For je As Double = dr("出纳加钞上限") To rjjl Step -x
            Dim maxts As Integer = Math.Floor(je / rjjl)
            If maxts < ts Then ts = maxts
            Dim mincb As Double = 99999
            Dim mints As Integer
            For i As Integer = 1 To ts
                Dim cb As Double = (je-rjjl*i)*lv/360+fy/i
                If cb < mincb Then
                    mincb = cb
                    mints = i
                End If
                output.show(dr("出纳号") & " " & i & "天成本 " & cb)
            Next
            output.show(dr("出纳号") & " 携带金额" & je & " " & mints & "天成本最低 " & mincb)
            If mincb < minallcb Then
                minallcb = mincb
                minallts = mints
                minje = je
            End If
        Next
        msgbox(dr("出纳号") & " 携带金额 " & minje & " " & minallts & "天成本最低 " & minallcb)
    End If
Next

 17楼的代码，是测试性的代码，你要看懂，改成符合你要求的。

 如果测试好了，再改成按钮的代码来用。