AfterSelChange 事件
if forms("XX").Opened then
forms("XX").controls("TextBox1").text=e.table.cols(e.Table.ColSel).name
end if