主题：RowColEventArgs 错误

If e.Col.Name = "Actions" Then
    e.Cancel = True '取消默认动作
    Dim Result As DialogResult
    Result = MessageBox.Show("您确认要结算此订单?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Tables("Paid").AddNew
        Dim dr As Row = Tables("Paid").Current
        Dim dr1 As Row =Tables("Completed").Current
        dr("DeliveredTime")=dr1("Date")
        dr("ID")=dr1("ID")
        dr("Buyer")=dr1("Buyer")
        dr("Game")=dr1("Game")
        dr("Server")=dr1("Server")
        dr("Character")=dr1("Character")
        dr("Amount")=dr1("Amount")
        dr("Price")=dr1("Price")
        dr("备注")= Date.Now & " " & _Name &" 标记订单为Paid." & Chr(13) & Chr(10)& dr1("备注")
        Tables("Completed").Current.Delete
        If Tables("Completed").Current IsNot Nothing Then
            Tables("Completed").Current.Save

        Else

             DataTables("Completed").Save()
        End If
        DataTables("Paid").Save
    End If
End If