Dim Result As DialogResult
Tables("充值记录").filter = Tables("充值记录").Current("流量卡号")
result= MessageBox.Show("是否要删除充值记录?","请注意",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If Tables("充值记录").Rows.Count>1 Then
    If result=DialogResult.yes Then
        Tables("充值记录").Current.Delete
        DataTables.Save
    End If
Else
    MessageBox.Show("无数据,不可以删除!", "提示")
End If

删除按钮单击事件编写以上代码对吗？怎么运行后不删除记录？

Dim Result As DialogResult
if  Tables("充值记录").Current("流量卡号") isnot nothing

    result= MessageBox.Show("是否要删除充值记录?","请注意",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
    If result=DialogResult.yes Then
        Tables("充值记录").Current.Delete
        DataTables.Save
    End If
Else
    MessageBox.Show("无数据,不可以删除!", "提示")
End If

有点蓝老师你好！

我要删除的不是数据库里有数据就能删除数据，而是要删除是所在表行的数据，但有个条件是删除数据之前先以流量卡号为筛选条件筛选出该流量卡号的所有记录库中必须有两条以上的的记录才能删除这个记录，不然不能删除

怎样获取充值记录表指定卡号充值记录中最大的充值日期？