主题：输入

有两个问题求教各位大神，第一个：我想在“任务单汇总”中输入“设备型号”和“项目分类”后在“定额表”中找出相同的“设备型号”和“项目分类”对应的“项目名称”、“单价”、“单位”自动复制到“任务单”中，怎么做才行？

第二个：我想将“任务单汇总”中不重复的“工程名称”、“设备编号”和“结算月份”自动复制到“动态表”中对应同样名称的列。谢谢

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

点击浏览该文件:管理项目123.foxdb

1.利用 Select http://www.foxtable.com/help/topics/0400.htm

 参考例子

 

http://www.foxtable.com/help/topics/1451.htm

 

我的“定额表”中是有多行的我想同时在选复制时同时自动增加行，并把内容复制进去

   

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

点击浏览该文件:管理项目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