For Each r As Row In Tables("表A").GetCheckedRows r("C") = user.NameNext
http://www.foxtable.com/help/topics/1776.htm