除了吓到孩子们
嘿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
我必须承认，你们是骑兵，我真的很欣赏这个论坛
页:
1
[2]