主题：求助

改一改

 

If e.DataCol.name = "月" Then
    For Each c As DataCol In e.DataTable.DataCols
        If c.name Like "*dj*"  Then
            Dim name1 As String = e.DataCol.Name.Replace("dj", "").substring(1) '去掉后二位dj和第一位字符得到编号
            Dim drb As DataRow
            drb = DataTables("表A").Find("编号 = '" & name1 & "'") '找到表识别中编号为name1的行
            If drb IsNot Nothing Then
                e.DataRow(c.name)  = drb("价格")   '自动从"表识别"取数
            End If
        End If
    Next
End If

老师还是不行，经测试 C.name好象没生成，现上传小样，借供参考。（用开发版生成的）

1、没看到你上传的例子；

 

2、弹出的c.name是什么？弹出的name1是什么？

上传了，看到了吗

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目小样.rar

重新上传了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目小样.rar

老师帮我看一下

If e.DataCol.name = "月" Then
    For Each c As DataCol In e.DataTable.DataCols
        If c.name Like "*dj*"  Then
            Dim name1 As String = c.Name.Replace("dj", "").Remove(0,1)'去掉后二位dj和第一位字符得到编号
            Dim drb As DataRow
            drb = DataTables("表A").Find("编号 = '" & name1 & "'") '找到表识别中编号为name1的行
            If drb IsNot Nothing Then
                e.DataRow(c.name)  = drb("价格")   '自动从"表识别"取数
            End If
        End If
    Next
End If

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

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月份就不会将上期数自动填入了，是什么原因吗？

你于没有年份列？如果月份列是 201801、201712这样的，代码肯定没问题。

 

回复19楼，请上传具体实例说明问题。