AfterSelChanged事件
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)Dim r As Row = e.Table.Rows(e.NewRange.Rowsel)If c.name = "第一列" Then If r.IsNull("第二列") Then e.Table.Select(e.NewRange.RowSel, e.Table.Cols("第二列").Index) End IfEnd If