※ 引述《kyohung (哀..可悲...一段声音讯号)》之铭言： : Me.Controls("TextBox" & i).Text = "" : 他会出现一个错误讯息在ME.Control那行 : 说是我没有NEW一个新物件 : 是不是我少了什麽步骤? 应该是因为你中间有跳号 (比如说少了 TextBox100) 所以 Me.Controls("TextBox100") 会是 Nothing 才会发生这个错误讯息.. 如果你的Form(表单)上的TextBox就只有这160个~ 那有另一种可以不透过它的Name就可以清除内容的方式.. 而且效率会比用 Me.Controls("名称") 好~ For Each t As Control In Me.Controls ' 列出 form 上的所有控制项 If TypeOf (t) Is TextBox Then ' 若该控制项是 TextBox, 把他的内容设成 "" t.Text = "" End If Next -- 不然照你原本的做法, 应该要写成 Dim t as TextBox t = Me.Controls("TextBox" & i) ' 检查是否真的存在该TextBox If Not t is Nothing t.Text = "" Else ' 记下这个编号 (这个号码跳号了) End if 这样执行时就不会发生那个错误讯息了~ 到时候再看哪个TextBox的内容没被清楚就把他设成跳号的号码.. --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 220.139.176.251 ※ 编辑: cole945 来自: 220.139.176.251 (06/14 00:24) ※ 编辑: cole945 来自: 220.139.176.251 (06/14 00:32)