Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]关于删除行


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

主题：[讨论]关于删除行
帅哥哟，离线，有人找我吗？
工匠
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：551 积分：5050 威望：0 精华：0 注册：2017/4/20 11:08:00 		[讨论]关于删除行  发帖心情 Post By：2021/3/9 11:48:00 [只看该作者]

老师好：
请教一下，关于删除行代码，如果是窗口关联表，删除的不是选择的当前行，删除的是当前表显示的第一行，请帮看看，如何删除当前选中的行

    If MessageBox.Show("确定要删除该信息吗?", "询问", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        With Tables(CurrentTable.DataTable.Name)  '动态获取当前表名
            Dim dr As Row = Tables(CurrentTable.DataTable.Name).Current
            If dr IsNot Nothing Then
                If dr.IsNull("审核") = False Then
                    MessageBox.Show("此单已经审核,不可以删除", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Return
                Else
                    dr.delete
                End If
            End If
        End With
    End If  


谢谢！ 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/9 11:55:00 [只看该作者]

Dim dr As Row = Tables("关联表名称如：表A.表B").Current

 回到顶部
帅哥哟，离线，有人找我吗？
工匠
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：551 积分：5050 威望：0 精华：0 注册：2017/4/20 11:08:00 		  发帖心情 Post By：2021/3/9 12:04:00 [只看该作者]

谢谢老师，这样写固定的可以，但是就没那么灵活了，需要2个删除按钮及不同代码。有没有办法自动获取到表名（含关联表，正副本表），或是其他办法只要一个按钮删除行，对删除主表行或关联表行都有效。

谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/9 12:07:00 [只看该作者]

Dim dr As Row = CurrentTable.Current

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 4 次数据查询