我有一段完整的case 程序（想上传附件，怎么也不会搞）请大师帮我分析一下：

    Case "lll"
        dim h As Integer
        for h=60 to 130 step 10
            dim i As Integer
            if  e.row("lwan1a") < h then
                for i = 1 to  Tables("jiben").rows.count-f-1
                    Dim j As Integer
                    Dim a As Integer
                    if Tables("jiben").rows(f+i)("lwan1a")=h
                        for j=1 to 20
                            if f+i+j=Tables("jiben").rows.count-f then
                                exit for
                            end if
                            if Tables("jiben").rows(f+i+j)("wan1a")="★"
                                a=a+1
                                if a=5 then
                                    exit for
                                end if
                            else
                                a=a-1
                                if a=-5 then
                                    exit for
                                end if
                            end if
                        next
                        Tables("jiben").rows(f+i)("lll")=a
                        exit for
                    end if
                next
            end if
        next

按照我的目的，最后一个循环应该得到-5到5之间的数，但结果有这之外的数，而且还没有负数，这个问题困扰我好久了，请大师指点

做个具体例子测试，说明你要做的功能是什么。

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

大师好，选择好文件后点击上传附件，提示“请正确选择要上传的文件“

用ie浏览器访问论坛。

1、你运算的逻辑是什么，请具体说明。

2、不应该在preparedit事件写代码，如果要写，单独做一个按钮写更好。

谢谢大师不辞辛劳编写的代码，我在命令窗口执行，只是找到了“lwan1a”=60的一行，还有70、80、90。。。。。130没有达到我的要求。

我现在还没有学到按钮那一块，您写的代码我也还看不太懂。我现在习惯在preparEedit事件编写代码，因为这里不需要动态合成表达式，查找行比较方便，这个也

是我现在的短板，以后再慢慢学。就请大师帮我分析一下我的代码，看问题出在哪儿，关键是找原因，有助我学习。我自己写的代码能够运行，我仔细的查看了没一

个环节，找不到问题所在

拜托！！！