标题: 窗体控件行来源的更新 [打印本页] 作者: loren 时间: 2008-1-22 16:24 标题: 窗体控件行来源的更新 Private Sub 产品类别_AfterUpdate()
Dim str1 As String
str1 = Me.产品类别.Value
Me.产品型号.RowSource = "SELECT DISTINCT 产品型号 FROM 维修记录 WHERE 产品类别= str1 "
End Sub
打算实现：根据“产品类别”的内容，改变“产品型号”的行来源，如何修改以上语句。
我的窗体默认视图是“数据表”。谢谢作者: 轻风 时间: 2008-1-22 16:34
Private Sub 产品类别_AfterUpdate()
Dim str1 As String
str1 = Me.产品类别.Value
Me.产品型号.RowSource = "SELECT DISTINCT 产品型号 FROM 维修记录 WHERE 产品类别='" & str1 & "'"
End Sub作者: liyong8058 时间: 2008-1-27 21:40
学习学习，str是个变量作者: de220 时间: 2008-1-28 20:20
学习学习作者: TNHTJ 时间: 2011-4-21 15:59
好呀
