以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]复制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87969)
--  作者：江南小城
--  发布时间：2016/7/23 20:52:00
--  [求助]复制
老师，按条件复制，譬如“摘要”列有不同的字段名称其中含有销售和付款这两个字段的行自动复制到另一个表中。复制行的列也要得到限制不复制所有列。
--  作者：狐狸爸爸
--  发布时间：2016/7/24 7:52:00
--  
可以看看：
http://www.foxtable.com/webhelp/scr/2490.htm
--  作者：江南小城
--  发布时间：2016/7/24 18:45:00
--  
以下是引用江南小城在2016/7/23 20:52:00的发言：
老师，按条件复制，譬如“摘要”列有不同的字段名称其中含有销售和付款这两个字段的行自动复制到另一个表中。复制行的列也要得到限制不复制所有列。
Select Case e.DataCol.name
    Case "产品编号"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.OldValue & "\'")
        If dr Is Nothing Then 
            dr = DataTables("库存").AddNew()
            dr("产品编号") = e.DataRow("产品编号")
            dr("产品名称") = e.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
    Case "产品名称","产品规格"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.DataRow("产品编号") & "\'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select
老师，上面代码一知半解，不知怎样修改？我要把摘要列含销售和采购的字段复制到库存表去。
--  作者：Hyphen
--  发布时间：2016/7/25 8:37:00
--  
上传例子，不知道您的数据结构，也不知道怎么改
--  作者：江南小城
--  发布时间：2016/7/25 9:07:00
--  
老师，把"农行个人账户管理"表"交易摘要"列中含 银证转账 字段 行的部分数据自动复制到"银证交割"表中
下面代码望老师给予修改。谢谢

Select Case e.DataCol.name
    Case "产品编号"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.OldValue & "\'")
        If dr Is Nothing Then 
            dr = DataTables("库存").AddNew()
            dr("产品编号") = e.DataRow("产品编号")
            dr("产品名称") = e.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
    Case "产品名称","产品规格"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.DataRow("产品编号") & "\'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select



 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:有条件复制.table
--  作者：大红袍
--  发布时间：2016/7/25 11:01:00
--  

 农行表DataColChanged事件

 

If e.DataRow("交易摘要").Contains("银证转帐") Then
    Dim fdr As DataRow = DataTables("银证交割").Find("编号 = \'" & e.DataRow("编号") & "\'")
    If fdr Is Nothing Then
        fdr = DataTables("银证交割").AddNew
    End If
    fdr("编号") = e.DataRow("编号")
    fdr("支出金额") = e.DataRow("支出金额")
    fdr("收入金额") = e.DataRow("收入金额")
End If
--  作者：江南小城
--  发布时间：2016/7/28 11:14:00
--  

 

 

老师好，上次帮我解决问题还没有谢谢，今天又来了。

 

老师窗口代码帮我修改一下，谢谢

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:录入.table
--  作者：Hyphen
--  发布时间：2016/7/28 11:18:00
--  
哪个窗口，什么问题，改什么？
--  作者：江南小城
--  发布时间：2016/7/28 11:33:00
--  
材料录入窗口
--  作者：Hyphen
--  发布时间：2016/7/28 11:39:00
--  
什么问题，想要做什么？