主题：[求助]引用变量

For Each dr1 As DataRow In DataTables("表A").Select("[金额] > " & Val(Forms("窗口1").Controls("TextBox1").Text))
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dc As DataCol in DataTables("表A").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next