弹出式自定义选择数据的窗体

时　间:2019-09-06 17:18:24
作　者:西出阳关无故人   ID：8236  城市：安顺
摘　要:可以根据你指定的SQL返回你指定的列的数据。
正　文:

      在数据库录入中，经常要使用组合框录入。一方面是方便录入，另一方面是更好地规范录入。但是，当组合框的下拉行数很多（例如300+）的时候，就会难于找到需要的数据行，导致用户录入体验不理想。这里提供一种方法，使用自定义的弹出式窗体给录入用户选择需要的数据，可以在弹出窗体中进行排序、筛选…直到找到需要的数据。

附   件:

点击下载此附件

      如附件实例，在《学生登记表》窗体中，“进入”组合框（如：就读学校），就会弹出弹窗，给你选择适合的数据。

Private Sub 就读学校_Enter()

      就读学校 = LusSelect("select 就读学校 from 学生登记表 group by 就读学校 order by 就读学校", 1, Me.就读学校)

End Sub

LusSelect函数能够根据你提供的三个参数，自动生成弹窗所需要的查询（USys选项查询）、窗体（USys选择），自动打开弹窗，你（可以进行排序、筛选、模糊查找…直到找到需要的数据）选中数据，并点击弹窗中的“确定”按钮后，弹窗关闭，选中的值就填写在组合框（如：就读学校）中。

第一个参数：指定如何查询数据的SQL语句，要符合查询对象的SQL语法，文本类型。实例中为"select 就读学校 from 学生登记表 group by 就读学校 order by 就读学校"

第二个参数：指定要返回的列（按照第一个参数指定的列的顺序），Integer类型，数据范围1~N，N为第一个参数的查询返回值的总列数。

第三个参数：Variant类型。传递组合框的现有值给弹窗进行定位，便于用户直观了解现有的值。可以为 null

图   示: