以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  输入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58685)
--  作者：ss
--  发布时间：2014/10/22 11:40:00
--  输入

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

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

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目123.foxdb
--  作者：Bin
--  发布时间：2014/10/22 11:43:00
--  
1.利用 Select http://www.foxtable.com/help/topics/0400.htm
--  作者：有点甜
--  发布时间：2014/10/22 11:44:00
--  

 参考例子

 

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

 
--  作者：ss
--  发布时间：2014/10/22 12:29:00
--  输入
我的“定额表”中是有多行的我想同时在选复制时同时自动增加行，并把内容复制进去
--  作者：有点甜
--  发布时间：2014/10/22 14:22:00
--  
   
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目123.foxdb
--  作者：ss
--  发布时间：2014/10/22 17:16:00
--  
太感谢了！！解决了。
--  作者：ss
--  发布时间：2014/10/26 16:19:00
--  输入
还是没能将将“任务单汇总”中不重复的“工程名称”、“设备编号”和“结算月份”自动复制到“动态表”中对应同样名称的列。还是麻烦请老师帮写下代码了！谢谢
--  作者：有点甜
--  发布时间：2014/10/26 16:30:00
--  
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
--  作者：ss
--  发布时间：2014/10/26 16:55:00
--  
甜甜老师我是要将《任务单汇总》这个表中的“工程名称”、“设备编号”和“结算月份”这三列即（工程名称&设备编号&结算月份)和“动态表”中对应的（工程名称&设备编号&结算月份)不一样的行的自动复制到“动态表”中对应同样名称的列。
--  作者：有点甜
--  发布时间：2014/10/26 17:04:00
--  
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