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

您好！  我在设计物业收费表格，现在有2个表，1、户主基本信息 2、收费登记表 

1、跨表引用，参考

 

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

 

2、加入判断收费类型的代码，如

 

If e.datarow("收费类型") = "物业费" Then

 

ElseIf e.datarow("收费类型") = "能耗费" Then

 

End If

 

版主您好！   

Select Case e.DataCol.Name
    Case "房号", "收费类型"
        If e.NewValue Is Nothing Then
            e.DataRow("姓名") = Nothing
            e.DataRow("实际面积") = Nothing
            e.DataRow("单价") = Nothing
        Else
            Dim dr As DataRow
            dr = DataTables("户主信息登记表").Find("[房号] = '" & e.DataRow("房号") & "'")
            If dr IsNot Nothing
                e.DataRow("姓名") = dr("姓名")
                e.DataRow("实际面积") = dr("实际面积")
            ElseIf e.DataRow("收费类型") = "物业费" Then
                e.DataRow("单价") = dr("物业费月缴额")
            ElseIf e.DataRow("收费类型") = "能耗费" Then
                e.DataRow("单价") = dr("能耗费月缴额")
            End If
        End If
End Select

版主您好！   按照您给的代码还是无法自动带出单价，放上项目请看看问题在那里？

Select Case e.DataCol.Name
    Case "房号", "收费项目"
        If e.NewValue Is Nothing Then
            e.DataRow("姓名") = Nothing
            e.DataRow("实际面积") = Nothing
            e.DataRow("单价") = Nothing
        Else
            Dim dr As DataRow
            dr = DataTables("户主信息登记表").Find("[房号] = '" & e.DataRow("房号") & "'")
            If dr IsNot Nothing
                e.DataRow("姓名") = dr("姓名")
                e.DataRow("实际面积") = dr("实际面积")
               
                If e.DataRow("收费项目") = "物业费" Then
                    e.DataRow("单价") = dr("物业费月缴额")
                ElseIf e.DataRow("收费项目") = "能耗费" Then
                    e.DataRow("单价") = dr("能耗费月缴额")
                End If
            End If
        End If
End Select

版主您好！  单价已经可以自动带出，但是在数量列输入数量后提示：无法在 System.String 和 System.String 上执行“*”操作。  总价无法显示，是哪里出问题了。

单价、数量这些列改为数值列

此主题相关图片如下：001.jpg

具体实例发上来测试。