主题：求助

谢谢高人，帮我解决了好多问题，参照此代码，可以减少我原来好多代码。变得简洁多了

DataColChanted

 

If e.DataCol.name = "月份" Then
    Dim fdr As DataRow = e.DataTable.Find("月份 < '" & e.DataRow("月份") & "'", "月份 desc")
   
    If fdr IsNot Nothing Then
        For Each dc As DataCol In e.DataTable.datacols
            If dc.Name Like "*上期*" Then
                e.DataRow(dc.name.replace("上期", "本期")) = fdr(dc.name)
            End If
        Next
    End If
End If

你好，这个代码平常月份运行没问题，到是1月份就不会将上期数自动填入了，是什么原因吗？