| 以文本方式查看主题 - 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=191983) |
|
| -- 作者：dahai -- 发布时间：2024/5/21 11:04:00 -- [求助]无法触发datacolchanged事件 想完成的任务《返仓单》库房确认列 鼠标点击 待返仓—>已返仓，触发了《返仓单》的datacolchanged事件，修改了阿里云后台表《返仓明细》 库房确认列，由待返仓—>已返仓，触发返仓明细的datacolchanged事件。但是发现无法触发《返仓明细》的datacolchanged事件，我在论坛查看了相关问题解答，论坛上说“
” 我想问的是，有什么好办法能够同步触发吗？ 表《返仓单》中的datacolchanged设置代码如下： If e.DataCol.Name = "库房确认" Then If e.OldValue = "待返仓" And e.NewValue = "已返仓" Then Dim frs As list(Of DataRow) = DataTables("返仓明细").SQLSelect("返仓单号 = \'" & e.DataRow("返仓单号") & "\'") For Each fr As DataRow In frs fr("库房确认") = "已返仓" fr.Save() Next End If end if 《返仓明细》的datacolchanged事件代码： If e.DataCol.Name = "库房确认" Then If e.OldValue = "待返仓" And e.NewValue = "已返仓" Then Dim fr As DataRow = DataTables("入库明细").SQLFind("入库单号 = \'" & e.DataRow("入库单号") & "\'") If fr IsNot Nothing Then e.DataRow("供应商") = fr("供应商") e.DataRow("入库用途") = fr("入库用途") e.DataRow("入库分类") = fr("分类") e.DataRow("备注") = fr("备注") End If end if end if |
|
| -- 作者：有点蓝 -- 发布时间：2024/5/21 11:14:00 -- 表《返仓单》中的datacolchanged设置代码如下： If e.DataCol.Name = "库房确认" Then If e.OldValue = "待返仓" And e.NewValue = "已返仓" Then Dim frs As list(Of DataRow) = DataTables("返仓明细").SQLSelect("返仓单号 = \'" & e.DataRow("返仓单号") & "\'") For Each dr As DataRow In frs dim s as string = dr("库房确认") dr("库房确认") = "已返仓" if s = "待返仓" then Dim fr As DataRow = DataTables("入库明细").SQLFind("入库单号 = \'" & dr("入库单号") & "\'") If fr IsNot Nothing Then dr("供应商") = fr("供应商") dr("入库用途") = fr("入库用途") dr("入库分类") = fr("分类") dr("备注") = fr("备注") End If end if Next DataTables("返仓明细").SQLUpdate(frs) End If end if |