嘿Bob，你不是一个d**k LOL LOL
我完全理解；这太疯狂了
听着伙计们；我从“开始”中说过，我知道代码写得不正确，我只是想了解我想做什么的基本想法。我尽量清楚地表达我在问什么，但是当我不确定我到底在问什么的时候，这很难。无论如何，有人告诉我某些事情在过去和最后是不能做的；我确实得到了它们。问题是；值得花时间和精力去做吗？Hummmm
Bob，你和CM都是正确的；一个Select Case语句会好得多，这就是我结束的地方。
我只是以一种有点伪的方式抛出了我所拥有的。
下面的代码非常接近Bob，我认为
是的，你是正确的，我们需要从0开始索引。
伙计，我的大脑太疼了伙计们，哈哈
无论如何，如果我永久性地损坏了任何人的大脑，我很抱歉哈哈
我只是有一个哲学；如果你能构思它，那么你就可以实现它。
所以，有了这个项目，我可能只是走了很长的路因为结果是一样的，但我总是“努力”成为代码的极简主义者。
所以，想想看，如果有人（包括我自己）能弄清楚这一点，它会让我们以后都受益
谢谢你们！
Mark
- Dim Ctrl As Control
- Dim intCnt As Integer
- For Each Ctrl In Form1.Controls
- Select Case typeof ctrl
- Case textbox
- for intcnt = 1 to 20 ' seems like you should be doing 0 to 19 to me as your index should be starting at 0 but I digress
- Form1.LL1L(IntCnt).Caption = Form2.TB01(intCnt).Value
- Next intCnt
- Case Label
- for intCnt 1 to 20
- 'do your thing
- next intcnt
- Case thenextone
- 'etc. ad infinitum
- End Select
- next ctrl
| 
