以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169776)
--  作者：cjl333333333
--  发布时间：2021/6/30 9:58:00
--  求助
Select Case e.DataCol.Name 
    Case "库存数量","库存件数","单价"
        Dim Filter As String = "[物料编号] = \'" & e.DataRow("编号") & "\'"
        Dim drs As List(Of DataRow) = DataTables("物料明细").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select
老师,我这段代码,在物料明细表数据有加载下来的就能更新,但一但物料明细表没打开没加载下来的记录就不会更新,我用的是外部数据表,这得怎么改.
--  作者：有点蓝
--  发布时间：2021/6/30 10:02:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080
--  作者：cjl333333333
--  发布时间：2021/6/30 10:18:00
--  
老师加SQL,好象打开着的记录又不更新了. 会不会
--  作者：有点蓝
--  发布时间：2021/6/30 10:20:00
--  
查询前先保存一下数据：DataTables("物料明细").save
--  作者：cjl333333333
--  发布时间：2021/6/30 10:39:00
--  
Select Case e.DataCol.Name 
    Case "库存数量","库存件数","单价"
        Dim Filter As String = "[物料编号] = \'" & e.DataRow("编号") & "\'"
        Dim drs As List(Of DataRow) = DataTables("物料明细").SQLSelect(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select
改成这样,加载下来的也不更新,没加载也不更新了图片点击可在新窗口打开查看.老师...........
--  作者：有点蓝
--  发布时间：2021/6/30 10:44:00
--  
正常，帮助不舍得多看一个：http://www.foxtable.com/webhelp/topics/2901.htm