以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]从不关联表取值到另一个表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93043)
--  作者：tswxdts
--  发布时间：2016/11/18 21:07:00
--  [求助]从不关联表取值到另一个表
老师们！今天练习写了个代码：不是关联表，从一个表取值到另一个表，但是怎么也出不来。附止代码，请老师们给看看，问题出在那里。
1、有两列要进行判断，编号和商品代码。如果两个都没有，全部增加行取值。如果编号有了，但是商品代码没有，也新增加行取值，只是
    编号和上面的一样，商品代码不一样。
Select Case e.DataCol.name
    Case "入库编号","商品代码"
        Dim dr As DataRow = DataTables("教材库存").Find("编号 = \'" & e.OldValue & "\'" AndAlso "商品代码 = \'"& 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("规格")
            dr("单位") = e.DataRow("单位")
            dr("单价") = e.DataRow("单价")
            dr("入库数量") = e.DataRow("数量")
        Else
            dr("编号") = e.DataRow ("入库编号")
            dr("商品代码") = e.DataRow("商品代码")
            dr("商品类别") = e.DataRow("商品类别")
            dr("商品名称") = e.DataRow("商品名称")
            dr("规格") = e.DataRow("规格")
            dr("单位") = e.DataRow("单位")
            dr("单价") = e.DataRow("单价")
            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
--  作者：有点蓝
--  发布时间：2016/11/19 8:53:00
--  
Select Case e.DataCol.name
    Case "入库编号"
        If e.DataRow.Isnull("入库编号") = False
            Dim dr As DataRow = DataTables("教材库存").Find("编号 = \'" &  e.DataRow("入库编号")  & "\'" AndAlso "商品代码 = \'" & e.DataRow("商品代码 ")  & "\'")
            If dr Is Nothing Then
                dr = DataTables("教材库存").AddNew()
                dr("编号") = e.DataRow ("入库编号")
                dr("商品代码") = e.DataRow("商品代码")
            End If
            dr("商品类别") = e.DataRow("商品类别")
            dr("商品名称") = e.DataRow("商品名称")
            dr("规格") = e.DataRow("规格")
            dr("单位") = e.DataRow("单位")
            dr("单价") = e.DataRow("单价")
            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
--  作者：tswxdts
--  发布时间：2016/11/19 9:54:00
--  
有点蓝老师！
       我上传了附件，你给看一下，就是在入库单里，同一个入库编号下有多行记录，怎么能把这些记录全部赋值到教材库存表里？
现在是只能把一个编号里的一行给赋值过去，另一行就不显示了！

[此贴子已经被作者于2016/11/19 9:55:13编辑过]
--  作者：有点蓝
--  发布时间：2016/11/19 10:01:00
--  
重置列：http://www.foxtable.com/webhelp/scr/1469.htm

重置编号列
--  作者：tswxdts
--  发布时间：2016/11/19 11:56:00
--  
重置提示：
NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：表，入库单， DataColChanged
详细错误信息：
调用的目标发生了异常。
从字符串“编号 = \'rk001\'”到类型“Boolean”的转换无效。
输入字符串的格式不正确。
我设置的入库编号格式：rk001开始
商品代码的格式：YY10001开始
这样设置没问题吧？
[此贴子已经被作者于2016/11/19 11:57:15编辑过]
--  作者：有点蓝
--  发布时间：2016/11/19 11:58:00
--  
Dim dr As DataRow = DataTables("教材库存").Find("编号 = \'" &  e.DataRow("入库编号")  & "\' And 商品代码 = \'" & e.DataRow("商品代码 ")  & "\'")
--  作者：tswxdts
--  发布时间：2016/11/19 11:59:00
--  
怎么上传附件提示成功了，但是不显示了？？
--  作者：tswxdts
--  发布时间：2016/11/19 12:10:00
--  
谢谢有点蓝老师，测试通过了，自己在消化理解一下！