动态控件 text的问题

shortppsy 2005-03-22 05:00:33
我在form_load 中创建了X这个text,但是在将x.text写入数据库时发生无法找到控件的错误,帮帮忙,帮我看看吧~


Private Sub Command1_Click()
Dim dbfilename As String
Dim strsql As String
Dim rs2 As ADODB.Recordset
Dim ConnectString As String
Dim i As Integer
Dim txtsql As String
Set conn1 = New ADODB.Connection
dbfilename = App.Path & "\data\data.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn1.Open ConnectString

Set rs1 = New ADODB.Recordset
strsql = "select * from lab"
rs1.Open strsql, conn1, 1, 2
Set rs2 = conn1.Execute("select [lab1] from lab where [lab1]='" & Text1.Text & "'")
If rs2.BOF And rs2.EOF Then
rs1.AddNew
rs1.Fields("lab1") = Trim(Text1.Text)
rs1.Fields("lab2") = Trim(x.Text)
rs1.Update
MsgBox "新添加的体检项目已经设置成功", vbInformation, "成功"
Else
MsgBox "对不起,不允许设置2次以上相同的字段,请检查后重新输入", vbCritical, "警告"
End If


'关闭并释放数据对象
rs1.Close
rs2.Close
Set rs1 = Nothing
Set rs2 = Nothing
conn1.Close
Set conn1 = Nothing
End Sub

Private Sub Form_Load()
Set x = Controls.add("VB.textbox", "x")
With x
.Visible = True
.Width = 2000
.Text = Me.Caption
.Top = 1000
.Left = 1000
End With
End Sub
...全文
88 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
BTbug 2005-03-22
  • 打赏
  • 举报
回复
没定义怎么行呢!!!?
lyj0558 2005-03-22
  • 打赏
  • 举报
回复
在最顶端声明:
Dim x As TextBox
pcwak 2005-03-22
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim MyLabel As Label
Dim MyText As TextBox
Set MyLabel = Controls.Add("VB.Label", "MyLabel")
MyLabel.Caption = "MyLabel"
MyLabel.Visible = True

Set MyText = Controls.Add("VB.TextBox", "MyText")
MyText.Text = "MyText"
MyText.Top = MyLabel.Height
MyText.Visible = True
End Sub
tztz520 2005-03-22
  • 打赏
  • 举报
回复
要定义呀.

Dim X As Control

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧