以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并操作问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187825)

--  作者:lin98
--  发布时间:2023/8/15 9:19: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
[此贴子已经被作者于2023/8/15 17:23:21编辑过]

--  作者:有点蓝
--  发布时间:2023/8/15 9:41:00
--  
参考:http://www.foxtable.com/webhelp/topics/1453.htm
--  作者:lin98
--  发布时间:2023/8/15 10:11:00
--  
老师,
问题一:表C是原本是空表,是须从表A和表B的已审核的数据,导入,而且,在同一行同一料号同一日期,数量在同一行,跨表引用的自动更新,是无法实现?
问题二:是否更高效?怎么写?谢谢

--  作者:有点蓝
--  发布时间:2023/8/15 10:14:00
--  
请上传实例说明
--  作者:lin98
--  发布时间:2023/8/15 10:34:00
--  


实例上我的代码有错,
[此贴子已经被作者于2023/8/15 17:23:35编辑过]

--  作者:有点蓝
--  发布时间:2023/8/15 10:42:00
--  
数据库里没有表C,如果要生成一个查询表参考:http://www.foxtable.com/webhelp/topics/2322.htm
--  作者:lin98
--  发布时间:2023/8/15 11:48:00
--  
老师,数据库里有表C
--  作者:lin98
--  发布时间:2023/8/15 11:50:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:有数据库.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/8/15 11:53:00
--  
就是没有
--  作者:lin98
--  发布时间:2023/8/15 12:01:00
--  
http://www.foxtable.com/webhelp/topics/2322.htm

用这个方法,有一个问题,表A与表B的记录不一样,以某表为主,而上面实例,要全连接,表A、表B的各表所有数据,你这个方法会造成数据缺失,

能否在实例上实现,上实例,用文字解说,还是很难,正如,你让我上实例一样,因我文字表述与你的理解不一样,故有实例,在实例上处理,大家能比较理解,谢谢