主题：通过查询表删除主表的问题

If User.IsRole("查看所有并编辑") Then
   
    Dim Result As DialogResult
    Result = MessageBox.Show("确定要删除该项目吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Dim t1 As Table = Tables("视图")
        Dim dt1 As DataTable  = DataTables("zcbd")
        dt1.DeleteFor("某列 = '" & t1.Current("某列") & "'")
        dt1.save
        t1.Current.Delete
    Else
        MessageBox.show("你无权执行此项操作!")
    End If
End If