| 以文本方式查看主题 - 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 -- 现在管用了，谢谢 |