If ds.Tables("book07").Rows.Count = 1 Then
Response.Write("<script>alert('书号重复，请重新输入。')<")
Response.Write("/Script>")
Else
myrow = ds.Tables("book07").NewRow
myrow("书号") = Trim(TextBox1.Text)
myrow("书名") = Trim(TextBox2.Text)
myrow("作者") = Trim(TextBox3.Text)
myrow("征订时间") = Trim(TextBox4.Text)
myrow("数量") = Trim(TextBox5.Text)
ds.Tables("book07").Rows.Add(myrow)
da.UpdateCommand = dacomm.GetUpdateCommand
da.Update(ds, "book07")
Response.Write("<script>alert('提交成功。')<")
Response.Write("/Script>")
Dim c As Control
For Each c In Controls
If TypeOf c Is TextBox Then
c.Text = ""
End If
Next
End If
我是打算在提交完数据到数据库以后弹出一个提示框提示成功，点完确定以后返回到刚才提交数据的页面，而且里面的textbox都清空了。
然后编译的时候报错“Text”不是“System.Web.UI.Control”的成员。
请问怎么解决？
------解决方案--------------------
Page.ClientScript.RegisterStartupScript(this.GetType(), "re", "alert('提交成功。')", true);
------解决方案--------------------
同意楼上说的，要进行转换，将c转换成TextBox。
------解决方案--------------------
Public Sub ClrEachTextBox()
Dim ob1 As System.Web.UI.Control
For Each ob1 In Me.Controls
If TypeOf (ob1) Is HtmlForm Then
Dim ob2 As System.Web.UI.Control
For Each ob2 In ob1.Controls
If TypeOf (ob2) Is TextBox Then
CType(ob2, TextBox).Text = ""
End If
Next
End If
Next
End Sub