主题：[原创]取上月的方案生成本月方案

 做一个新增按钮

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
Dim dr1 As Row = Tables("表a").current
Dim dr2 As DataRow = DataTables("表B").AddNew()
For i As Integer = 0 To Cols1.Length -1
    dr2(Cols2(i)) = dr1(Cols1(i))
Next
dr2("月份") = Date.Today.Month