以文本方式查看主题

-  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