table里在某个单元格的keydown事件里,下面代码会出错,错误提示如图。 同样的代码在doubleclick里面是正常的。
该怎么修改呢?
Dim zclxdate As Date
zclxdate= bianliangfangtaidate1.Year & "-" & e.Col.name.Split("月")(0) & "-" & e.Col.name.split("月")(1).split("日")(0) zclxdate=format(zclxdate,"yyyy-MM-dd")
e参数属性:
Table: 所编辑的表Alt: 逻辑型,判断是否同时按下了Alt键Control: 逻辑型,判断是否同时按下了Ctrl键Shift: 逻辑型,判断是否同时按下了Shift键KeyCode: Keys枚举型,表示按键的代码Cancel: 逻辑型,设为True,取消此次按键
Table:
e.table.ColSel
RowSel