在窗口SQLTable表的CLICK事件代码如下,出现标题的错误提示
If e.Col.name = "删除" Then
If Tables("自营车辆结算").Current("结算员") = user.Name Then
If Tables("自营车辆结算").Current("结算完毕") = False Then
If e.Row("行驶状态") = "空驶" Then
Dim Result As DialogResult
Result = MessageBox.Show("确定删除此条数据?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
e.Row.Delete()
Else
e.Cancel = True
End If
End If
Else
MessageBox.Show("已结算完毕的结算单无法删除结算明细!")
End If
Else
MessageBox.Show("非原操作员无权删除结算明细!")
End If
End If