Private Sub 添加窗框_Enter()
If Me.Combo0.Value = "" Then
MsgBox "未选系列"
End If
Dim rs As Recordset
Dim sql As String
sql = "select * from 窗型列表 where 窗型列表.系列名称 ='" & Me.Combo0.Value & "'"
Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset, dbSeeChanges, dbOptimistic)
If rs.RecordCount = 0 Then
MsgBox "No Recorde"
Else
MsgBox rs.Fields(2)
End If
Set rs = Nothing
End Sub