AfterLoad事件:
http://www.foxtable.com/help/topics/2058.htm
For each dr As DataRow in DataTables("xxx").DataRows
dr.Locked = True
Next