以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  帮我看看，错在哪里啊  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=71083)
--  作者：hongyefor
--  发布时间：2015/7/4 16:23:00
--  帮我看看，错在哪里啊
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
--  作者：狐狸爸爸
--  发布时间：2015/7/4 16:25:00
--  
提问要系统：
在什么事件写的代码？
目的是什么？
出现什么问题？

要素说清楚，不要敷衍了事，会耽误双方的时间。
--  作者：hongyefor
--  发布时间：2015/7/4 16:29:00
--  
这是删除按键，主要是如果当前行有数据时，点击删除按键后，会出来提示，按确定后删除，按取消后再出来提示，不删除当前行数据，如果当前行没有数据，则直接删除当前行
--  作者：czy
--  发布时间：2015/7/4 16:32:00
--  
这样？

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

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