以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样把材料信息添加到两个表中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70852)
--  作者：lzz4513
--  发布时间：2015/6/30 11:24:00
--  怎样把材料信息添加到两个表中
比如有两个表，一个是总材料表，一个是直接材料表，一个是辅助材料表，我要把相关器件信息添加到直接材料表中，同时在总表中也添加，怎么实现，谢谢。
--  作者：大红袍
--  发布时间：2015/6/30 11:25:00
--  

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

 
--  作者：lzz4513
--  发布时间：2015/6/30 11:31:00
--  
谢谢高手
--  作者：lzz4513
--  发布时间：2015/7/1 16:02:00
--  不同表之间数据同步的问题
http://www.foxtable.com/help/index.html?n=2490.htm，我按照上面的方法做了，出现了问题，见图片问题3，怎么回事呢高手。
--  作者：大红袍
--  发布时间：2015/7/1 16:05:00
--  

上传图片参考 http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 
--  作者：lzz4513
--  发布时间：2015/7/1 16:16:00
--  不同表同步
请查看附件
图片点击可在新窗口打开查看此主题相关图片如下：问题1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：问题2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：问题3.jpg
图片点击可在新窗口打开查看
谢谢
--  作者：狐狸爸爸
--  发布时间：2015/7/1 16:45:00
--  
代码看不出问题，可以将文件法发上来看看。
另外抓错误提示截图的时候，最好先勾选”显示详细信息“，然后在截图
--  作者：大红袍
--  发布时间：2015/7/1 17:28: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.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
        End If
End Select
--  作者：lzz4513
--  发布时间：2015/7/2 9:54: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("数量")
            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
是不是大类和二类结合的时候不可以这样用啊，
先谢谢大红袍了
--  作者：大红袍
--  发布时间：2015/7/2 9:56:00
--  

 上传具体例子说明怎么不能用