以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]fill 不能删除问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75230)

--  作者:blsu33
--  发布时间:2015/9/30 16:33:00
--  [求助]fill 不能删除问题
红袍老师,
AR窗口的table5 由下面数据Fill 生成
Tables("ar_table5").Fill("Select * F rom {Jobcard明细表}","user",False)
Tables("ar_table5").Sort=("年度 DESC")
Tables("ar_table5").AllowEdit=True
For Each st As Row In Tables("ar_table5").Rows
    st.Locked=True
Next

AR窗口有一个DELL删除按钮

If Tables("ar_table5").Current IsNot Nothing Then
    If MessageBox.Show("删除后将不能恢复,请确认是否删除?","提示",MessageBoxButtons.YesNo)=DialogResult.Yes Then
        Tables("ar_table5").Current.Locked=False
        Tables("ar_table5").Current.Delete
        Tables("ar_table5").Current.Save
    End If
End If

为何删除后退出 删除的行还存在



--  作者:大红袍
--  发布时间:2015/9/30 16:52:00
--  
If Tables("ar_table5").Current IsNot Nothing Then
    If MessageBox.Show("删除后将不能恢复,请确认是否删除?","提示",MessageBoxButtons.YesNo)=DialogResult.Yes Then
        Tables("ar_table5").Current.Locked=False
        Tables("ar_table5").Current.Delete
        Tables("ar_table5").Save
    End If
End If