窗体控件行来源的更新

loren

Private Sub 产品类别_AfterUpdate()
Dim str1 As String
str1 = Me.产品类别.Value
Me.产品型号.RowSource = "SELECT DISTINCT 产品型号 FROM 维修记录 WHERE 产品类别= str1 "
End Sub

打算实现：根据“产品类别”的内容，改变“产品型号”的行来源，如何修改以上语句。

我的窗体默认视图是“数据表”。谢谢

轻风

Private Sub 产品类别_AfterUpdate()
Dim str1 As String
str1 = Me.产品类别.Value
Me.产品型号.RowSource = "SELECT DISTINCT 产品型号 FROM 维修记录 WHERE 产品类别='" & str1 & "'"
End Sub

liyong8058

学习学习，str是个变量

de220

学习学习

TNHTJ

好呀