Foxtable(狐表)用户栏目专家坐堂 → [求助]fill 不能删除问题


  共有1804人关注过本帖树形打印复制链接

主题:[求助]fill 不能删除问题

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
[求助]fill 不能删除问题  发帖心情 Post By:2015/9/30 16:33:00 [只看该作者]

红袍老师,
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

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



 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 回到顶部