共9 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]如何自动将CTRL + ENTER 写入代码

1楼

狐哥发表于：2009/2/26 14:01:00

2、高级筛选功能

前面提到的自动筛选功能，只能筛选出以输入字符开始的项目。
如果需要筛选出包括输入字符的项目，可以按“Ctrl + Enter"键。
例如下图中，我们输入“贸易”二字，然后按“Ctrl + Enter"键，即可自动列出所有包括“贸易”二字的项目供选择。

请问如下代码,如何自动将CTRL + ENTER 写入代码

If e.IsFocusCell Then '如果是焦点单元格
    If e.Col.Name = "公司简称" Then
        If e.Row.IsNull("费用关联") Then
            e.Col.Combolist = ""
        Else
            e.Col.Combolist = DataTables("客户与供应商").GetComboListString("客户简称")
        End If
   end if

2楼

czy 发表于：2009/2/26 14:20:00

在ChangeEdit事件中设置：Sendkeys.Send("^{Enter}") 试试。

3楼

狐哥发表于：2009/2/26 14:28:00

以下是引用czy在2009-2-26 14:20:00的发言：

在ChangeEdit事件中设置：Sendkeys.Send("^{Enter}") 试试。

试了,但一进入后不能编辑,你试试,如我要在单元格内先写入: 好,没写完就跑了

4楼

czy 发表于：2009/2/26 14:33:00

将1楼的代码放到PrepareEdit事件中，将我的代码放到ChangeEdit事件中应该不会跑的。

5楼

狐哥发表于：2009/2/26 14:44:00

以下是引用czy在2009-2-26 14:33:00的发言：
将1楼的代码放到PrepareEdit事件中，将我的代码放到ChangeEdit事件中应该不会跑的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:跨表统计.table

帮看看,一是选择写入不了,二是只能录一个字就触发了.

6楼

czy 发表于：2009/2/26 15:04:00

以下是引用狐哥在2009-2-26 14:44:00的发言：

下载信息 [文件大小：448.0 KB 下载次数：0]
点击浏览该文件:跨表统计.table

帮看看,一是选择写入不了,二是只能录一个字就触发了.

是有这种情况，看来还很难解决。

7楼

狐哥发表于：2009/2/26 15:18:00

呵,只能手动了

8楼

狐狸爸爸 发表于：2009/2/26 15:40:00

要不我家一个方法，可编码强制下拉？

9楼

狐哥发表于：2009/2/26 16:41:00

呵呵，感谢，ComboBox中也写一个，呵呵，列表项目太多时，真不好选．

共9 条记录, 每页显示 10 条, 页签: [1]