[此贴子已经被作者于2006-8-14 9:20:49编辑过]
我做了一个表单,上午给学生讲课时用的,你看看你能不能用上,其中代码很简单的。
CommandGroup1.Click EventDo Case Case This.Value=1 Go Top Case This.Value=2 Skip Case This.Value=3 Skip -1 Case This.Value=4 Go BottEndcodeThisform.Refresh
这样就清楚很多。
[此贴子已经被作者于2006-8-14 22:58:11编辑过]
大家好像跑题了,搂猪要的是“查找”按钮的代码。另外,8楼的代码如果修改一下,可能更好一些:如Go Top后,把“首记录”和“上一条”按钮屏闭,“下一条”和“尾记录”按钮可用……,而且还应该注意处理好 Skip 和 Skip -1可能引起的超出记录界限的问题。
[此贴子已经被作者于2006-8-15 8:41:34编辑过]