优化段代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

原代码科目编码=10100101 依据科目编码规则 kmbm_lenC(1)=101 kmbm_lenC(2)=101001 kmbm_lenC(3)=10100101

编码名称

101 银行存款

101001 同城存款

10100101 中国银行

如果输入的编码是 10100101 返回的名称是银行存款_同城存款_中国银行

Dim KM As String

For i = 1 To js

KM = KM & "'" & kmbm_lenC(i) & "',"

km=km.TrimEnd(",")

sql = "s elect DISTINCT 科目编码,科目名称 from {K01} where 科目编码 In (" & KM & ") order by 科目编码"

Dim s As String

For Each dr As DataRow In ReturnDataRead(sql).DataRows

s=s & dr("科目名称") &"_"

这段代码写到 DrawCell 运行速度很慢请版主优化

要达到的效果就是

此主题相关图片如下：qyz`tupdoppe74pf~lopwg2.png

此主题相关图片如下：@@)j7((9~n5m837`@uhs3ql.png

[此贴子已经被作者于2019/3/1 13:15:04编辑过]

主题：优化段代码