原代码 科目编码=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) & "',"
Next
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("科目名称") &"_"
Next
这段代码写到 DrawCell 运行速度很慢 请版主优化
要达到的效果就是
此主题相关图片如下:qyz`tupdoppe74pf~lopwg2.png
此主题相关图片如下:@@)j7((9~n5m837`@uhs3ql.png
[此贴子已经被作者于2019/3/1 13:15:04编辑过]