主题：[求助]请教高手如何生成如图的下一个月（201611）的相同的工资。

手工方法：复制数据，拷贝数据，然后重复填充日期 http://www.foxtable.com/webhelp/scr/0140.htm

代码方法

For Each dr1 As DataRow In DataTables("表A").Select("发薪年月 = '201610'")
    Dim dr2 As DataRow = DataTables("表A").AddNew()
    For Each dc As DataCol In DataTables("表A").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
    dr2("发薪日期") = "201611"
Next