输入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目123.foxdb

Select e.DataCol.Name
    Case "设备型号","项目分类","复制"
        If e.DataRow.IsNull("设备型号") OrElse e.DataRow.IsNull("项目分类") OrElse e.DataRow("复制") = False Then
        Else
            For Each dr As DataRow In DataTables("定额表").Select("设备型号 = '" & e.DataRow("设备型号") & "' and 项目分类 = '" & e.DataRow("项目分类") & "'")
                Dim fdr As DataRow = DataTables("任务单").Find("设备型号 = '" & dr("设备型号") & "' and 项目分类 = '" & dr("项目分类") & "' and 项目名称 = '" & dr("项目名称") & "'")
                If fdr Is Nothing Then
                    Dim nr As Row = Tables("任务单汇总.任务单").AddNew

                    nr("设备型号") = dr("设备型号")
                    nr("项目分类") = dr("项目分类")
                    nr("项目名称") = dr("项目名称")
                    nr("单价") = dr("单价")
                    nr("单位") = dr("单位")
                End If
            Next
        End If
End Select

Select e.DataCol.Name
    Case "工程名称", "结算月份", "设备编号"
        If e.DataRow.IsNull("工程名称") OrElse e.DataRow.IsNull("结算月份") OrElse e.DataRow.IsNull("设备编号") Then
        Else
            Dim fdr As DataRow = DataTables("动态").Find("工程名称 = '" & e.DataRow("工程名称") & "' and 结算月份 = '" & e.DataRow("结算月份") & "' and 设备编号 = '" & e.DataRow("设备编号") & "'")
            If fdr Is Nothing Then
                Dim nr As Row = Tables("动态").AddNew
                nr("工程名称") = e.DataRow("工程名称")
                nr("结算月份") = e.DataRow("结算月份")
                nr("设备编号") = e.DataRow("设备编号")
            End If
        End If
End Select

主题：输入