以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表更新  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119255)

--  作者:lfz123
--  发布时间:2018/5/21 16:24:00
--  跨表更新
我想在 入库单列表 更新 入库单 的如下信息 代码写在入库单列表的DataColChanged事件中 结果修改入库单列表中的一列内容后没有任何反应,咋地回事啊?
Select Case e.datacol.name
    Case "供应商编码","供应商简称","入库单号","入库日期","签收人","录入人","录入日期"
        Dim drs As List(Of DataRow) = DataTables("入库单").Select("入库编号 = \'"& e.datarow("入库编号") & "\'")
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select

--  作者:有点甜
--  发布时间:2018/5/21 16:27:00
--  
msgbox(e.datacol.name)
Select Case e.datacol.name
    Case "供应商编码","供应商简称","入库编号","入库日期","签收人","录入人","录入日期"
msgbox(123)
        Dim drs As List(Of DataRow) = DataTables("入库单").Select("入库编号 = \'"& e.datarow("入库编号") & "\'")
msgbox(drs.count)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select

--  作者:lfz123
--  发布时间:2018/5/21 16:41:00
--  
谢谢老师,我理解了老师的意思,不过后来我也找到了原因,就是流程语句嵌套的问题造成的,改到首层就解决了,因为这里面有些列的内容是根据代码生成的,