使用ADO实现数组排序 曲轴箱通风 • 2022-6-10 • 语言综合 • 阅读 23 概述'* ************************************** *'* 模块名称:modSort.bas'* 模块功能:使用ADO实现数组排序'* 作者:http://blog.csdn.net/lyserver'* ************************************** *Sub main() Dim pstr As String '* ************************************** *'* 模块名称:modSort.bas'* 模块功能:使用ADO实现数组排序'* 作者:http://blog.csdn.net/lyserver'* ************************************** *Sub main() Dim pstr As String pstr = "4aaaa/5.1hhhhhh/1.2pppppp/4.1ttttttt/5.2dddddddd" Dim v As Variant,v_array As Variant,rs As Object v_array = Split(pstr,"/") Set rs = CreateObject("ADODB.Recordset") rs.FIElds.Append "zd1",adChar,100 rs.Open For Each v In v_array rs.AddNew "zd1",v Next rs.sort = "zd1 ASC" rs.MoveFirst do while Not rs.EOF DeBUG.Print rs.absoluteposition,rs!zd1 rs.MoveNext Loop rs.CloseEnd Sub 总结 以上是内存溢出为你收集整理的使用ADO实现数组排序全部内容,希望文章能够帮你解决使用ADO实现数组排序所遇到的程序开发问题。如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。 欢迎分享,转载请注明来源:内存溢出原文地址: http://outofmemory.cn/langs/1293508.html 数组 排序 赞 (0) 打赏 微信扫一扫 支付宝扫一扫 曲轴箱通风 一级用户组 0 0 生成海报 浅析VB.NET实现下拉列表的折行显示 上一篇 2022-06-10 vb.net下窗体卸载事件 下一篇 2022-06-10 发表评论 请登录后评论... 登录后才能评论 提交 评论列表(0条)
评论列表(0条)