- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码代开内置输入器 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125136)
-- 发布时间：2018/9/20 15:43:00
-- [求助]代码代开内置输入器
老师，
如何代码打开内置输入器-日期输入器
-- 发布时间：2018/9/20 16:17:00
--
1、焦点放到日期列或者日期控件；
2、执行代码 Sendkeys.Send("{f4}")
-- 发布时间：2018/9/20 21:45:00
--
PrepareEdit
If e.Col.name="dates" Then
Sendkeys.Send("{f4}")
End If
不好用啊
-- 发布时间：2018/9/20 21:51:00
--
afterSelChanged事件
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
If c.name="第四列" Then
Sendkeys.Send("{f4}")
End If
-- 发布时间：2018/9/22 8:26:00
--
老师，
这样不行，怎么办？
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
If c.IsDate Then
Sendkeys.Send("{f4}")
End If
-- 发布时间：2018/9/22 9:04:00
--
我测试没有问题
-- 发布时间：2018/9/22 9:08:00
--
列字段是 datetime 类型好像不好用
-- 发布时间：2018/9/22 9:14:00
--
测一样没有问题，做个例子看看
-- 发布时间：2018/9/22 11:16:00
--
窗口表的IDmery 字段 没有这个效果
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:列属性.foxdb |
-- 发布时间：2018/9/22 11:30:00
--
开启使用内置输入器
http://www.foxtable.com/webhelp/scr/0051.htm