主题：CellButtonClick 打开窗口

在表 CellButtonClick 中代码如下:

 

If e.Col.Name = "设计内容" Then
    Forms("设计内容").Open
End If

 

单击单元格按钮,可以弹出窗口,并且窗口可以使用.

 

但是关闭窗口后,会再提示多一次单元输入,有没有办法,关闭窗口后,不再弹出那个单元格的输入窗口?

 

就是后边那个"编辑设计内容窗口不要再弹出来 了."

 

 

此主题相关图片如下：111.gif

另外,我在窗口里关联了一个表格的日期,

 

窗口中有一个"清除按钮",目的是一键清除所有值,然后保存.

 

问题:  为什么我明明清除,并且在窗口里也显示那个日期格子为空了,  但是表格那里的日期为什么没有清空?再次打开窗口,日期依然是原来的?

 

清除 命令如下:

 

For Each ctl As WinForm.Control In e.Form.Controls 

    If TypeOf ctl Is WinForm.CheckBox Then 

        Dim rdo As WinForm.CheckBox = ctl
        rdo.Checked = False
    ElseIf Typeof ctl Is WinForm.ComboBox Then
        Dim com As WinForm.ComboBox = ctl
        com.text = ""
    ElseIf Typeof ctl Is WinForm.DateTimePicker Then
        Dim de As WinForm.DateTimePicker =ctl
        de.text = ""
    End If
Next
Tables("项目总表").Current("设计内容") = ""
Tables("设计进度表").save

 

此主题相关图片如下：222.gif

示例

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

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

If e.Col.Name = "设计内容" Then

    e.Cancel = True '取消默认动作
    Forms("设计内容").Open
End If

看我下边的另一个问题,我在里边有关联了一个生产进度表的日期的.

 

 

我原来是打算这样用的,我点开窗口,然后排生产计划.

 

但是我点窗口里的清除钮,另一表格里的日期不会清除

这个要上传实例测试才知道是什么原因。先解决第一个问题，测试后还是有问题，就做个例子发上来看看