数据排版--求助大神！！！

bensontc

Sql = "select distinct 色号 FROM [Sheet2$a1:c] where 型号='" & Arr(0, I) & "'"
    BRR = cnn.Execute(Sql).getrows
还是不理解，调试到这句的时候
如果色号这列是文本类型，BRR这个是空值，不匹配
但看前面有个ARR这个记录数组，引用的方式也是一样，而且也是文本类型，怎么就不报错的
看来程序理解的太少啊！！请指教下，谢谢！

bensontc

@魂断蓝桥
请再协助帮忙下，自己调试不了这个格式！！

bensontc

自己再顶个，有谁能帮忙再看看的，谢谢！！！

bensontc

自己查了下出错的原因，色号这一列如果有文本和数字混排的话，查找不出来文本类型的数据；但是我把格式都统一改成文本类型后还是查找不出来，真的不知道原因！
请协助！！！

bensontc

怎么对字符串的查找就没法解决这个事情啊！！！

bensontc

还是没有人回答我的问题，5555555555

bensontc

签到报道个，有人能看到的吗！！

bensontc

魂断蓝桥 发表于 2018-8-28 14:24
Option Explicit

Sub A()

大神，你好，实际色号这一栏是文本形式的，但一执行的时候数据程序会报错；本以为这一栏数字类型和文本类型不能混排的原因，统一成文本还是不行，程序执行的本地窗口找到的是空值，整个程序报错，麻烦大神再指教下；这一直以来自己都没调试好，自己的水平太LOW了！

魂断蓝桥

bensontc 发表于 2018-9-10 08:54
大神，你好，实际色号这一栏是文本形式的，但一执行的时候数据程序会报错；本以为这一栏数字类型和文本类 ...

数据排版.rar (18.26 KB, 下载次数: 2)

2018-9-10 09:52 上传

点击文件名下载附件

Option Explicit

Sub A()
Dim cnn, rs As Object, Sql As String, Arr, BRR, I%, J%, R%, t%, M%
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.Recordset")
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select distinct 型号 from [sheet2$A1:A] where len(型号)>0"
Arr = cnn.Execute(Sql).getrows
Sheets("数据").Cells.Clear
For I = 0 To UBound(Arr, 2)
    Sql = "select distinct 色号 FROM [Sheet2$a1:c] where 型号='" & Arr(0, I) & "'"
    BRR = cnn.Execute(Sql).getrows
    t = t + 1
    Sheets("模板").[a1:l27].Copy Sheets("数据").Range("a1").Offset((t - 1) * 28, 0)
     Sheets("数据").[A1].Offset((t - 1) * 28, 0) = Arr(0, I)
     M = 0
        For J = 0 To UBound(BRR, 2)
            Sql = "SELECT 卷号,数量 FROM [Sheet2$a1:d] where 型号='" & Arr(0, I) & "' AND 色号='" & BRR(0, J) & "'" _
                & " order by val(卷号)"
            If rs.State Then rs.Close
            rs.Open Sql, cnn, 1, 1
                With Sheets("数据")
                    Do While Not rs.EOF
                        M = M + 1
                        .Range("a3").Offset((t - 1) * 28 - 1, (M - 1) * 2) = BRR(0, J) & "#"
                        .Range("a4").Offset((t - 1) * 28, (M - 1) * 2).CopyFromRecordset rs, 20
                    Loop
                End With
        Next
Next
Set rs = Nothing
Set cnn = Nothing
End Sub

bensontc

魂断蓝桥 发表于 2018-9-10 09:51
Option Explicit

Sub A()

谢谢大神的指教
对比了下前后的代码，怎么感觉是一样的，没有明白在什么地方修正了！！
呵呵
还是自己的基础太薄弱了
不过已经可以执行了，谢谢！！！