[已解决]查询上一个或下一个记录的代码问题，有代码，但不坚持！

grf1973

我试了，一切正常。。。。。。。你干脆用2楼的代码吧。

liwenhong

grf1973 发表于 2014-4-15 16:13
我试了，一切正常。。。。。。。你干脆用2楼的代码吧。

       使用8楼的附件，解压后打开，此时D2单元格内有2421，按钮“上一条”和“下一条”都有动作。但是，您试试用“查询”按钮确定职工编号后，“上一条”和“下一条”按钮就出现了我说的情况，还请您再试试啊！谢谢！

只要一使用“查询”按钮就出现问题，使用在D2单元格内人工输入数字的方法，也能正常，就是不能使用“查询”的方法得到D2的值，有点邪门呀！（另外，我的鼠标正常啊）

liwenhong

grf1973 发表于 2014-4-15 16:13
我试了，一切正常。。。。。。。你干脆用2楼的代码吧。

请您一定使用“查询”按钮，来确定被查询的职工。这样就能发现问题了。

grf1973

哦，原因找到了，因为你的窗体里对数组arr重新进行了定义，和我原来定义的有所冲突。现在我把自己用的Arr全部改成了ar，就没问题了。

liwenhong

grf1973 发表于 2014-4-16 09:15
哦，原因找到了，因为你的窗体里对数组arr重新进行了定义，和我原来定义的有所冲突。现在我把自己用的Arr全 ...

    非常感谢，这次的代码没有任何问题，简单、运行速度快！太谢谢您了！

因为这个文件以后要用到另一个电子表格工作薄（只读文件）中，我将打开工作薄事件中的代码移到了“查询”按钮下执行了，不知是否合适？请指教！

也就是将：

1. 'Private Sub Workbook_Open()
   
2. '    Set d = CreateObject("scripting.dictionary")
   
3. '    ar = Sheets("信息库2").[a1].CurrentRegion
   
4. '    For i = 2 To UBound(ar)
   
5. '        d(ar(i, 1)) = i
   
6. '    Next
   
7. 'End Sub
   

复制代码

改为了：

1. Private Sub CommandButton1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     ar = Sheets("信息库2").[a1].CurrentRegion
   
4.     For i = 2 To UBound(ar)
   
5.         d(ar(i, 1)) = i
   
6.     Next
   
7.     UserForm2.Show '打开窗体1
   
8. End Sub
   

复制代码

grf1973

那这样你要是没运行过查询，点击上一条，下一条会出错的。保险点的做法还是不要用公共变量了。

grf1973

而且用公共变量的话，数组只在工作簿打开时一次定义。如果操作中信息库发生改变，数组不会同步改变的，这样会出现查询出错。

liwenhong

grf1973 发表于 2014-4-16 11:19
而且用公共变量的话，数组只在工作簿打开时一次定义。如果操作中信息库发生改变，数组不会同步改变的，这样 ...

     因为打开工作薄时，用于查询的工作表D2是空的，要查询必须先点击“查询”按钮，之后才能点“上一条/下一条”。