以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]通过代码改变表的某个字段  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56402)

--  作者:lesliecheung912
--  发布时间:2014/9/4 15:08:00
--  [求助]通过代码改变表的某个字段
      在退缸入库中的修改按钮为以下代码,目的是将酒缸分配明细表的未铺入库提交(逻辑型)的值改成false。
下列代码中第一个Message的值是TRUE,第二个Message的值为false,这样从代码中看是实现了要求,
但是实际上这条数据的该值并未改变,请问这种情况可能会是什么造成的呢?
With Tables("酒缸入库明细表")
    If .Rows.Count > 0 Then
        Dim Result As DialogResult
        Result = MessageBox.Show("是否确定修改当前所选入库明细记录?", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            If .Current("提交") = True Then
                Tables("酒缸入库明细表").AllowEdit = True
                .Current("提交") = False
                .Current.Locked  = False
                Dim r As Row = Tables("酒缸入库明细表").Current
                Dim dr As DataRow
                dr = DataTables("酒缸分配明细表").SQLFind("[分配单号] = \'" & r("分配单号") & "\' And [酒缸名称] = \'" & r("酒缸名称") & "\' And [酒缸型号] = \'" & r("酒缸型号") & "\'")
                If dr IsNot Nothing Then
                    messagebox.show(dr("未铺入库提交"))
                    DataTables("酒缸分配明细表").AllowEdit = True
                    dr.Locked = False
                    dr("未铺入库提交") = False
                    messagebox.show(dr("未铺入库提交"))
                    DataTables("酒缸分配明细表").save
                    \'DataTables("酒缸分配明细表").AllowEdit =False
                End If
            End If
        End If
    End If
End With

--  作者:Bin
--  发布时间:2014/9/4 15:10:00
--  
 If dr IsNot Nothing Then
                    messagebox.show(dr("未铺入库提交"))
                    \'DataTables("酒缸分配明细表").AllowEdit = True
                    dr.Locked = False
                    dr("未铺入库提交") = False
                    messagebox.show(dr("未铺入库提交"))
                    dr.Save
                    \'DataTables("酒缸分配明细表").save
                    \'DataTables("酒缸分配明细表").AllowEdit =False
                End If
[此贴子已经被作者于2014-9-4 15:10:28编辑过]

--  作者:lesliecheung912
--  发布时间:2014/9/4 15:19:00
--  
现在管用了,谢谢