以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]跨表新增行出现错误！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68335)
--  作者：liuxianjie1980
--  发布时间：2015/5/14 23:30:00
--  [求助]跨表新增行出现错误！

.NET Framework 版本：2.0.50727.4984
Foxtable 版本：2014.11.11.1
错误所在事件：表，采购清单库，DataColChanged
详细错误信息：
调用的目标发生了异常。
表达式包含无效的日期常量“##”。

代码如下：

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("生产厂家")
            dr("采购数量") = e.DataRow("采购数量")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
End Select
--  作者：Bin
--  发布时间：2015/5/15 8:42:00
--  
Select Case e.DataCol.name
    Case "采购日期"
        if e.oldValue is not nothing then
        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("生产厂家")
            dr("采购数量") = e.DataRow("采购数量")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
       end if
End Select
--  作者：大红袍
--  发布时间：2015/5/15 9:11:00
--  

 你多字段关联的，就用这样方法吧

 

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