以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  DataColChanged改写入库单列表的入库编号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173571)
--  作者：lfz
--  发布时间：2021/12/6 11:36:00
--  DataColChanged改写入库单列表的入库编号
DataColChanged改写入库单列表的入库编号
1 2 3都跳出来了,为啥结果出不来呢
  Select Case e.DataCol.Name \'更改供应商简称则更改 入库单列表 里的供应商简称和编码
    Case "供应商简称"
            Dim dr As DataRow = DataTables("入库单列表").SQLfind("入库编号 = \'"& e.datarow("入库编号") & "\'")
MessageBox.Show(1)
            If dr IsNot Nothing Then
MessageBox.Show(2)
                dr("供应商简称") = e.DataRow("供应商简称")
MessageBox.Show(3)
            End If
End Select
--  作者：cd_tdh
--  发布时间：2021/12/6 11:37:00
--  

 e.DataRow("供应商简称") = dr("供应商简称")

方向反了

[此贴子已经被作者于2021/12/6 11:38:03编辑过]
--  作者：lfz
--  发布时间：2021/12/6 13:07:00
--  回复：（cd_tdh） e.DataRow("供应商简称") = dr...
我是在入库单的DataColChanged写的代码,目的是:更改入库单里面的供应商简称时,找到入库单列表里面的一行对应行(入库单编号查找)更改其供应商简称,我理解方向应该是没有反的吧
--  作者：有点蓝
--  发布时间：2021/12/6 13:46:00
--  
            If dr IsNot Nothing Then
                dr("供应商简称") = e.DataRow("供应商简称")
dr.save
            End If

SQLfind结果是一个独立的行，和原主表没有关系，需要单独保存