可以试试曲线救国
Dim ctb = Tables("订单").Gridctb.Cols("编号").Selected = Truectb.Cols("客户").Selected = True
同样要用代码取消
加好友 
发短信
Post By：2014/12/22 11:41:00 [显示全部帖子]
