主题：自动带入其他表格数据

1、把列改成数据列，不要用表达式列；

 

2、执行代码

 

If e.DataCol.name.EndsWith("月") Then
    Dim dr As DataRow
    dr = DataTables("户主信息登记表").Find("[房号] = '" & e.DataRow("房号") & "'")
    Dim sum As Double = 0
    If dr IsNot Nothing
        For Each c As DataCol In e.DataTable.DataCols
            If c.name.EndsWith("月") AndAlso e.DataRow.IsNull(c.name) = False Then
                sum += dr("能耗费月缴额")
            End If
        Next
    End If
    e.DataRow("能耗费月缴额") = sum
End If

版主您好！   我需要在月份列下面某一行输入一个简单字符，然后这个输入字符的单元格就能自动填写入这一行月缴额里的数字，如何实现。谢谢！实列如下：

看11楼。

版主您好！  使用11楼代码在列“月”下面填入数字0 没有带入能耗费月缴额数据，删除0时候提示错误

 

把列【能耗费月缴额】改成数据列，不要用表达式列

 

http://www.foxtable.com/webhelp/scr/2494.htm

 

 

版主您好！  可能我没表达清楚我的需求，  我是需要在月份列下面某一行输入1或者0，然后我输入数字的那个单元格显示这一行能耗费月缴额内的数值。

If e.DataCol.name.EndsWith("月") Then
    Dim dr As DataRow
    dr = DataTables("户主信息登记表").Find("[房号] = '" & e.DataRow("房号") & "'")
    Dim sum As Double = 0
    If dr IsNot Nothing
        If e.DataRow.IsNull(e.datacol.name) = False Then
            sum += dr("能耗费月缴额")
        End If
    End If
    e.DataRow("能耗费月缴额") = sum
End If

版主您好！  写入代码如下图：
此主题相关图片如下：003.jpg

删除原来的代码，datacolchanging事件，写代码

 

版主您好！   我想设置这样的代码， 如果表（“物业费台账” “能耗费台账” ）列(二〇一九年_1月--二〇一九年_12月) 房号行不为空 那么