主题：记录窗口的疑问

以下内容为程序代码:

1 Dim c As Col = e.Table.Cols(e.NewRange.Colsel)
2 Select Case c.Name
3 Case "第一列","第二列","第三列"
4 e.Table.Cols(c.name).combolist = "..."
5 End Select