主题：锁定行

DataRowAdded 事件

Dim dr As DataRow
dr = DataTables("订单").Find("[锁定后] = True") '找到锁定后的条件,请自己自定义
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("订单").FindRow(dr)
    If wz >= 0 Then
        Tables("订单").rows(wz).move(Tables("订单").rows.count-1)
    End If
End If

或者参考这里的合计行固定 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45520