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

相关内容

热门资讯

伊朗高级领导层否认与美国进行了... 格隆汇3月23日｜据央视，当地时间3月23日，伊朗几位“高级领导层”表示，特朗普当日声称正在与伊朗进...
豆神教育：董事长窦昕辞职 唐颖... 3月23日，豆神教育（维权）（300010）发布公告，董事长窦昕因工作安排调整辞去董事长及非独立董事...
RadexMarkets瑞德克... 3月23日，近期，加密货币市场在关键周线收官之际遭遇剧烈波动，比特币价格在周末跌破69000美元关口...
吉林省一地拍到“巨鸟”过马路，... （来源：长春相遇）老铁别急！“座山雕”国道溜达，东北大哥大姐齐让路老话说得好，“春江水暖鸭先知”，可...
03月23日 美元兑泰铢跌破3... Hehson外汇消息2026年03月23日，截至19时31分，外汇市场上美元兑泰铢汇率跌破1美元兑换...