主题：[求助]

代码

Select Case e.DataCol.Name
    Case "单价","本月读数","上月读数","铜损","铁损","表倍率"
        Dim dr As DataRow
        dr = DataTables("基础表").Find("总户号 = '" & e.DataRow("总户号") & "'" )
        If dr IsNot Nothing '如果找到, 则设置各列内容
            e.DataRow("区域")= dr("区域")
            e.DataRow("地址")= dr("地址")
            e.DataRow("单价")= dr("单价")
            e.DataRow("表倍率")= dr("表倍率")
            dr("一月_电量") = e.DataRow("电量")
            dr("一月_电费") = e.DataRow("电费")
        End If
End Select