1. 您所在位置：
  2. 网站首页
  3. 文档分类
  4. 计算机
  5. Visual Basic

VBA代码优化：组合框更改处理程序.pdfVIP

  • 0
  • 0
  • 约4.48千字
  • 约 8页
  • 2026-03-05 发布于北京
  • 举报

VBA代码优化：组合框更改处理程序.pdf

    PrivateSubCombo1_Change()DimrsAs

    ADODB.RecordsetDimstrSQLAsStringSetrs=New

    ADODB.RecordsetstrSQL=select*fromyerwhere组别

    Combo1.Valuers.OpenstrSQL,

    CurrentProject.Connection,2,2Fori=List1.ListCount‑1

    To0Step‑1List1.RemoveItem(i)NextiDoWhileNot

    rs.EOFList1.AddItemrs()rs.MoveNextLooprs.Close

    Setrs=NothingEndSub

    PrivateSubCombo1_Change()

    DimrsAsADODB.Recordset

    DimstrSQLAsString

    Setrs=NewADODB.Recordset

    您可能关注的文档

    最近下载

    文档评论（0）

    1亿VIP精品文档

    更多 >

    相关文档

    更多 >