- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现让窗体打开后对应的控件值为空，也就是不显示最后记录，但是又不影响实际表中的数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52129)
-- 发布时间：2014/6/9 21:45:00
-- 如何实现让窗体打开后对应的控件值为空，也就是不显示最后记录，但是又不影响实际表中的数据
如何实现让窗体打开后对应的控件值为空，也就是不显示最后记录，但是又不影响实际表中的数据
采用的是身份证阅读器直接读卡生成新数据。
此主题相关图片如下：0000000001111111.jpg
[此贴子已经被作者于2014-6-9 21:45:59编辑过]
-- 发布时间：2014/6/9 21:47:00
--
加一行空的行，窗口打开的时候，查找这一空行，定位。
http://www.foxtable.com/help/topics/0553.htm
-- 发布时间：2014/6/9 22:19:00
-- 回复：（有点甜）?加一行空的行，窗口打开的时候...
也就是假想查找对吗？实际查找不到这个数据的 只是让当前窗体不显示数据 但是不影响数据的新录入 对么 有点甜老师！
但是那需要好久可以操作呢？
因为实际中 身份证阅读器读卡后马上就运行了摄像头进行拍照，怎么判断是否成功了呢？
[此贴子已经被作者于2014-6-9 22:20:22编辑过]
-- 发布时间：2014/6/9 22:21:00
--
以下是引用李孝春在2014-6-9 22:19:00的发言：
也就是假想查找对吗？实际查找不到这个数据的 只是让当前窗体不显示数据 但是不影响数据的新录入 对么 有点甜老师！
也就是假想查找对吗？实际查找不到这个数据的 只是让当前窗体不显示数据 但是不影响数据的新录入 对么 有点甜老师！
你的表里面，必须有一行空的行，这样才能显示空白的内容！必须要有。但是只需要有一行即可。
-- 发布时间：2014/6/9 22:42:00
-- 回复：（有点甜）以下是引用李孝春在2014-6-9 22:19:0...
With CurrentTable
Dim r As Integer
r = .FindRow("[身份证号码] Like \'% %\'") \'从 第一行开始查找
If r >= 0 Then \'如果找到的话
.Position = r \'定位到找到的行。
End If
End With
把这样的代码放置在页签A点击后运行 对么
-- 发布时间：2014/6/9 22:45:00
--
放在afterLoad事件里。表名改一下
With Tables("表A")
Dim r As Integer
r = .FindRow("[身份证号码] is null") \'从 第一行开始查找
If r >= 0 Then \'如果找到的话
.Position = r \'定位到找到的行.
End If
End With
-- 发布时间：2014/6/9 22:50:00
-- 回复：（有点甜）?放在afterLoad事件里。表名改一...
因为我采用的是页签集合，只有先试一试页签点击事件后运行，明天我实际电脑操作一下，现在阅读器不在家不好检验，先谢谢你哦！
经过实际测试，在没有阅读器的情况下，新增一行空白记录后，在窗体加载后事件中写入上面的代码，可以实现空记录筛选。
页签点击事件前 后加入代码页可以实现空记录筛选。
余下的就等明天实际身份证阅读器试一试
[此贴子已经被作者于2014-6-9 23:06:47编辑过]
-- 发布时间：2014/6/10 19:16:00
-- 回复：（有点甜） 放在afterLoad事件里。表名改一...
有点甜老师 这个思路在只有一空行记录时候有效，当遇见某些时候，不能正常读身份证的时候，问题出现了。那就会导致新增的记录中身份证号码列是空的 那么就会筛选到这个地方来，求解！有没有更好的办法呢？
-- 发布时间：2014/6/10 19:57:00
--
回复8楼，你不会加多几个条件？
r = .FindRow("[身份证号码] is null and 性别 is null and 民族 is null") \'从 第一行开始查找
再说，如果不能正常读身份证，那应该去读取身份证失败那里控制，和这里的代码有什么联系？
-- 发布时间：2014/6/10 20:15:00
-- 回复：（有点甜） 回复8楼，你不会加多几个条件？...
看来我是得好好从头理顺一下啦 先谢谢你！