在退缸入库中的修改按钮为以下代码，目的是将酒缸分配明细表的未铺入库提交（逻辑型）的值改成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
加好友 
发短信
Post By：2014/9/4 15:08:00 [只看该作者]
