主题：帮我看看，错在哪里啊

With Tables("面料信息表").Current '引用当前行
    If .IsNull("面料名称") = False Then '如果已经输入面料名称
        MessageBox.Show("你确定要删除这个面料的信息吗?如果删除将是不可恢复的!","删除",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
        Dim Result As DialogResult
        If Result = DialogResult.Yes Then
            .Locked = False '那么解锁此行
            Tables("面料信息表").Current.Delete
        Else
            MessageBox.Show("操作时请小心,当心误操作,以免造成不必要的麻烦.","提示")
           
        End If
    Else
        If .IsNull("面料名称") = True Then '如果已经输入面料名称
           
            .Locked = False '那么解锁此行
            Tables("面料信息表").Current.Delete
        End If
    End If
End With

这是删除按键，主要是如果当前行有数据时，点击删除按键后，会出来提示，按确定后删除，按取消后再出来提示，不删除当前行数据，如果当前行没有数据，则直接删除当前行

对，就差 Tables("面料信息表").Current，就不能用了