主题：单元格按钮

老师您好！

   在【编号】列属性->【自定义项目】中添加：“|...”,加个按钮

【cellbuttonclick】代码：

  

if e.col.name = "编号" andalso e.row.isnull("编号") = false then

If FileSys.DirectoryExists(ProjectPath & e.row("编号")) Then '如果目录不存在

Dim Proc As New Process '定义一个新的Process
Proc.File = FileSys.CreateDirectory(ProjectPath & e.row("编号")) '指定要打开的文件
Proc.Start()

End If

end if

可是在按下按钮以后，出现这个界面，我不想让这个界面出现，就直接到文件夹界面，怎么取消这个界面？

此主题相关图片如下：无标题.png

CellButtonClick

单击单元格按钮后执行，通常用于实现一些复杂的输入功能。

e参数属性：

Table:  引发事件的表
Row:    引发事件的行
Col:    引发事件的列
Cancel: 逻辑型，设为True，取消默认的动作。

在单元格中显示按钮的方法很简单，只需将该列的列表项目设为“...”或“|...”即可，差别是前者不能编辑单元格的内容，后者则可以。
在默认情况下，单击单元格按钮会出现一个编辑窗口，用于向单元格输入内容。
通过将e参数Cancel设为True，可以取消这个默认的动作，执行其他操作。

示例

例如希望单击某列的单元格按钮，能够显示一个设计好的窗口，可以将CellButtonClick事件代码设为：

If e.Col.Name = "第三列" Then
    e.Cancel = True '取消默认动作
    Forms("窗口1").Open()
End If