查找按钮代码应该怎么写呀?
表单里各按钮第一个,上一个,,,,,,,,,中,查找按钮代码应该怎么写呀? 一点头绪也没有。寻求帮助。谢谢了。
[此贴子已经被作者于2006-8-14 9:20:49编辑过]
CommandGroup1.Click Event
Do Case
Case This.Value=1
Go Top
Case This.Value=2
Skip
Case This.Value=3
Skip -1
Case This.Value=4
Go Bott
Endcode
Thisform.Refresh
这样就清楚很多。
[此贴子已经被作者于2006-8-14 22:58:11编辑过]
大家好像跑题了,搂猪要的是“查找”按钮的代码。
另外,8楼的代码如果修改一下,可能更好一些:如Go Top后,把“首记录”和“上一条”按钮屏闭,“下一条”和“尾记录”按钮可用……,而且还应该注意处理好 Skip 和 Skip -1可能引起的超出记录界限的问题。
[此贴子已经被作者于2006-8-15 8:41:34编辑过]