以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用SQL语句实现以下的功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150460)

--  作者:lfz123
--  发布时间:2020/5/30 14:51:00
--  用SQL语句实现以下的功能
我在datatablechanged事件中写了如下代码来更新相关表的付款单号列,请问用完全的SQL语句怎样实现呢?
If e.DataCol.name = "申请单号" OrElse e.DataCol.name = "凭证编号" Then \'更新入库单的付款单号
    e.DataRow.Save()
    Dim drs As List (of DataRow) = DataTables("入库单").SQLSelect("申请单号 = \'" & e.DataRow("申请单号") & "\'")
    For Each dr As DataRow In drs
        Dim strs As List (of String) = e.DataTable.SQLGetValues("付款单号","申请单号 = \'" & e.DataRow("申请单号") & "\'")
        dr.Lines("付款单号") = strs
    Next
    DataTables("入库单").SQLUpdate(drs)
End If

--  作者:有点蓝
--  发布时间:2020/5/30 15:03:00
--  
这种用法没有办法使用一条语句搞定
--  作者:lfz123
--  发布时间:2020/5/30 15:08:00
--  回复:(有点蓝)这种用法没有办法使用一条语句搞定
多条的话麻烦你写给我领悟下呗,谢谢啦
--  作者:有点蓝
--  发布时间:2020/5/30 15:14:00
--  
请上传有数据的实例测试