主题：通过键盘的左右键移动到当前单元格引发的事件是什么？

AfterSelChange 、 KeyDown 、 KeyUp 等等事件都触发

Dim c As Col = e.Table.Cols(e.NewRange.ColSel)

Select Case c.name
    Case "加"
        Dim t As Table = Tables("zhudan.qingdan")
        Dim nr As Row = t.addnew()
        t.Select(nr.Index, t.Cols("product").Index)
        t.Focus      
End Select