以文本方式查看主题 - 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 -- 谢谢老师,我理解了老师的意思,不过后来我也找到了原因,就是流程语句嵌套的问题造成的,改到首层就解决了,因为这里面有些列的内容是根据代码生成的, |