Me.list10.RowSource

yuanyuan　发表于：2020-04-28 17:34:08 　

rivate Sub Text2_Change()
'子窗体筛选代码如下
Dim strWhere As String

strWhere = Trim$(Me.Text2.Text)
If Len(strWhere) > 0 Then
strWhere = " where [企业_名称] & [工商_注册号] & [Key号] & [组织机构_代码证号] & [税务_登记号] & [受理号] & [受理_方式] & [经办人] Like '*" & strWhere & "*'"

End If
Me.list10.RowSource = "SELECT * FROM 供应商资料表" & strWhere

End Sub

提问 Me.list10.RowSource = "SELECT * FROM 供应商资料表" & strWhere 这是什么意思

Top

chinasa 发表于：2020-04-29 08:01:12

为列表框 list10 控件的数据源赋值。

Top

沈军发表于：2020-05-09 20:56:32

提问 Me.list10.RowSource = "SELECT * FROM 供应商资料表" & strWhere 这是什么意思

Me 代表自己窗体或者报表中的一个对象或者一个控件

list10 是列表框

RowSource 是数据来源

"SELECT * FROM 供应商资料表" & strWhere 这个是 SQL 语句，供应商资料表是一个表的名称， strWhere 是一个字符型变量

这句话的意思是：在供应商资料表中查询包含 strWhere 这个变量指定的所有记录， LIKE * “字符” *，* 代表所有的通配符

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

Me.list10.RowSource