以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  长代码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188445)

--  作者:lin98
--  发布时间:2023/9/20 16:39:00
--  长代码问题
Dim dCols() As String = {"部门", "福利待遇满意度_得分", "福利待遇满意度_份数", "福利待遇满意度_平均分", "个人成长满意度_得分", "个人成长满意度_份数", " & 
""个人成长满意度_平均分", "工作环境满意度_得分", "工作环境满意度_份数" , "工作环境满意度_平均分", "管理状况满意度_得分", "管理状况满意度_份数", "管理状况满意度_平均分", " & 
""设备设施满意度_得分", "设备设施满意度_份数", "设备设施满意度_平均分"}

上面代码报错,提示字符须双引号结束,上面都已用双引号,不知如何觲决?

--  作者:有点蓝
--  发布时间:2023/9/20 16:45:00
--  
http://www.foxtable.com/webhelp/topics/2489.htm
--  作者:lin98
--  发布时间:2023/9/20 21:51:00
--  
Dim dCols() As String = "{"部门", "福利待遇满意度_得分", "福利待遇满意度_份数", "福利待遇满意度_平均分", "个人成长满意度_得分", "个人成长满意度_份数", " & 
""个人成长满意度_平均分", "工作环境满意度_得分", "工作环境满意度_份数" , "工作环境满意度_平均分", "管理状况满意度_得分", "管理状况满意度_份数", "管理状况满意度_平均分", " & 
""设备设施满意度_得分", "设备设施满意度_份数", "设备设施满意度_平均分"}"

是看2楼做是,报错

--  作者:y2287958
--  发布时间:2023/9/21 8:24:00
--  
数组不能那样用。不如这样:
Dim s As String = "部门, 福利待遇满意度_得分, 福利待遇满意度_份数, 福利待遇满意度_平均分, 个人成长满意度_得分, 个人成长满意度_份数,"
s += "个人成长满意度_平均分, 工作环境满意度_得分, 工作环境满意度_份数,工作环境满意度_平均分, 管理状况满意度_得分, 管理状况满意度_份数,"
s += "管理状况满意度_平均分, 设备设施满意度_得分, 设备设施满意度_份数, 设备设施满意度_平均分"
Dim dCols() As String = s.Split (",")

--  作者:有点蓝
--  发布时间:2023/9/21 9:29:00
--  
1、根本就没有认真看帮助

If a = 1 _
And b = 1 _
Then

后者分成了3行书写,注意符号"_"的前面必须有个空格,也就是说在代码中间换行输入的时候,必须以" _"结尾。



2、字符串里有双引号,需要另外处理:http://www.foxtable.com/webhelp/topics/0211.htm