主题：改成按钮的代码应该怎么做？

设计时，要注意看编辑器中下部的帮助文档，特别是e参数

按钮的点击事件，e参数是不会有DataCol属性的

你应该用表格的属性去设置

比如 Dim t As Table = Tables("订单")
      Dim c As Col = t.Cols(t.ColSel)

Select Case  c.Name