以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]关于删除行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161184)
--  作者：工匠
--  发布时间：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  


谢谢！ 
--  作者：有点蓝
--  发布时间：2021/3/9 11:55:00
--  
Dim dr As Row = Tables("关联表名称如：表A.表B").Current
--  作者：工匠
--  发布时间：2021/3/9 12:04:00
--  
谢谢老师，这样写固定的可以，但是就没那么灵活了，需要2个删除按钮及不同代码。有没有办法自动获取到表名（含关联表，正副本表），或是其他办法只要一个按钮删除行，对删除主表行或关联表行都有效。

谢谢！
--  作者：有点蓝
--  发布时间：2021/3/9 12:07:00
--  
Dim dr As Row = CurrentTable.Current