设置表B的DataColChanged事件:
Dim pr As DataRow = e.DataRow.GetParentRow("表A")
if pr isnot nothing then
pr("时间") = Date.Now
end if