Access-VBA
创始人
2024-06-01 02:05:07

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

上一篇：2019最适合年轻人创业的10个小本创业项目 有哪些适合年轻人的小本创业项目 适合年轻人的10个创业小本生意

下一篇：【Redis】P1 Redis - NoSQL

相关内容

热门资讯

中证A500ETF摩根（560... 8月22日，截止午间收盘，中证A500ETF摩根（560530）涨1.19%，报1.106元，成交额...
A500ETF易方达（1593... 8月22日，截止午间收盘，A500ETF易方达（159361）涨1.28%，报1.104元，成交额1...
何小鹏斥资约2.5亿港元增持小... 每经记者｜孙磊    每经编辑｜裴健如 8月21日晚间，小鹏汽车发布公告称，公司联...
中证500ETF基金（1593... 8月22日，截止午间收盘，中证500ETF基金（159337）涨0.94%，报1.509元，成交额2...
中证A500ETF华安（159... 8月22日，截止午间收盘，中证A500ETF华安（159359）涨1.15%，报1.139元，成交额...