主题：关于删除关联的问题

我写了一段代码 用来判断与之关联的资料是否被使用 如果被使用就不允许删除

现在发现一个问题 好像无论当前资料表里是否输入的信息 Y的值都是不为空的  这是怎么回事

Dim q(5) As Integer
Dim r As String
Dim s As String
Dim Result As DialogResult
Dim y As Row = Tables("产品类别设置").Current
If y IsNot Nothing Then
    Result = MessageBox.Show("确认删除?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.no Then
        e.Cancel = True
    Else
          
            r=CurrentTable.Current("名称")
            q(0)=Tables("产品资料").find(r,0,"所属类别",True,True,True)
            If  y IsNot Nothing And q(0)<>-1
                MessageBox.Show("该档案已经使用,无法删除!","提示",MessageBoxButtons.OK)
                e.Cancel = True
               
        End If
    End If
End If

一般用这个的：

http://www.foxtable.com/help/topics/0396.htm