以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  特殊情况下添加那种括号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180747)
--  作者：zhangchi96
--  发布时间：2022/10/15 20:25:00
--  特殊情况下添加那种括号
已知一个表:产品数据
         序号   产品名    长度   宽度   高度   重量
          1         A         2       3       4      8
          2         B         4       3       7      9
          3         C         5       6       8      2 
          4         D         1       8       9      12
在导出电子表的时候，常用到下列语句:

      Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & "模版.xls")
      Dim Sheet0 As XLS.Sheet = Book.Sheets("Sheet1")
      Sheet0(0, 14).Value = "<end>" 
      Sheet0(1,  0).Value = "<产品数据>"
      Sheet0(1,  1).Value = "[产品名]" 
      Sheet0(1,  2).Value = "[长度]"  
                                        如果我定义一个变量  Dim 列名变量 As String
                                        后来求得变量结果     列名变量 = “长度”       或者结果是  列名变量 = “长度 + 宽度 ”   
                                        上句就改为              Sheet0(1,  2).Value = "[列名变量]"     这里  "[列名变量]"   语法该如何改写？因为这里的括号写法不对了
                                                       如果需要的话，变量结果可以得到    列名变量 = “[长度] + [宽度] ”   或其他格式
                                                       刚刚上面问题解决了，把变量结果设法得到  列名变量 = “<[长度] + [宽度]> ”
                                                                                                       写成  Sheet0(1,  2).Value = 列名变量   ，就能解决问题  
      Sheet0(1, 14).Value =  \'"<all>"
                                        上句如果添加条件的话 ，可以写为  Sheet0(1, 14).Value =  \'"< 长度 > 0>"  
                                                                         或者写为 Sheet0(1, 14).Value =  \'"< 长度 + 宽度 > 0 >"  
                                        如果我又定义一个变量  Dim 判断量 As String
                                        后来求得变量结果        判断量 = “长度”    也有可能求得 判断量 = “长度 + 宽度”  
                                        上句就改为了              Sheet0(1, 14).Value =  "< 判断量 > 0 >"     这里语法也错了，请问该如何写 ？
敬请老师指点迷津！


[此贴子已经被作者于2022/10/15 21:31:55编辑过]
--  作者：zhangchi96
--  发布时间：2022/10/15 21:44:00
--  
 第2个问题也解决了，
定义变量：    Dim 判断量 As String
然后 设法使得变量求得结果        判断量 = “ < 长度 + 宽度 > 0 >”  
   最后代码写成 Sheet0(1, 14).Value =   判断量     ，一切都解决了
--  作者：zhangchi96
--  发布时间：2022/10/15 22:32:00
--  
运行过程中发现 第2个问题的解法还要再改一下
定义变量：    Dim 判断量 As String
然后 设法使得变量求得结果        判断量 = “ < 长度 >0 or 宽度 > 0 >”  
--  作者：zhangchi96
--  发布时间：2022/10/15 22:33:00
--  
如果有多重条件还可以这样
     设法使得变量求得结果        判断量 = “ <（ 长度 >0 or 宽度 > 0 ） and 选定 = true  >”