Dim I As Long, S() As String
ReDim S(N) For I = 1 To N '这里的N由你窗体上有多少个文本框要写入数组的个数决定 S(I) = Me.Controls("TextBox" & I).Text '这里的"TextBox"由你的控件名决定,默认的名称为TextBox1、TextBox2...TextBoxN,这里使用的是默认名称。 Next I
[此贴子已经被作者于2007-8-8 12:57:22编辑过]
问题解决了
那你就把ME改成你自己的窗体名啊。