[求助]文本框怎么赋值？

z110120

Private Sub Text22_BeforeUpdate(Cancel As Integer)

Me.Text22.ControlSource = Forms!窗体查询!Combo9.Column(2)
End Sub


加了这段语句后反应都没有

z110120

Private Sub Text22_BeforeUpdate(Cancel As Integer)
Dim str As String
str = "select 单位代码.单位名称 from 单位代码 where 单位代码.单位代码 like '*" & Me.Combo9 & "*'"
Me.Text22.ControlSource = str
End Sub


也不行，combo9就是用来选择单位代码的，高手帮忙

tz-chf

文本框写入记录集作什么

一点通

请上传示例加以说明

z110120

combo9用来选择单位，但显示出来的只有单位的代码，没有单位名称

所以又加了个文本框，想显示combo9所选的单位代码，在表'单位代码'所对应的单位名称

4420