以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  出现莫名奇妙的错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174131)

--  作者:fntfgz
--  发布时间:2022/1/3 11:02:00
--  出现莫名奇妙的错误

图片点击可在新窗口打开查看此主题相关图片如下:截图_20225903105945.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:ff.xls
代码如下:请老师帮忙看看
Dim lei As String
For Each r As Row In CurrentTable.rows \'逐行生成报表    
    If r("序号").contains("类")=True And  r("序号").contains("大类")=False Then
        lei=r("序号")
    End If    \'
    output.show(lei)
    If lei.length > 4 Then
       output.show(lei)
        \'  r("专业类代码")=left(lei,4)
        \'  r("专业类名称")=lei.replace(left(lei,4),"")
    End If
Next

--  作者:fntfgz
--  发布时间:2022/1/3 13:04:00
--  
明白了,打扰了