Foxtable(狐表)用户栏目专家坐堂 → 特殊情况下添加那种括号


  共有5603人关注过本帖树形打印复制链接

主题:特殊情况下添加那种括号

帅哥哟,离线,有人找我吗?
zhangchi96
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
特殊情况下添加那种括号  发帖心情 Post By: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
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2022/10/15 21:44:00 [只看该作者]

 第2个问题也解决了,
定义变量:    Dim 判断量 As String
然后 设法使得变量求得结果        判断量 = “ < 长度 + 宽度 > 0 >”  
   最后代码写成 Sheet0(1, 14).Value =   判断量     ,一切都解决了

 回到顶部
帅哥哟,离线,有人找我吗?
zhangchi96
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2022/10/15 22:32:00 [只看该作者]

运行过程中发现 第2个问题的解法还要再改一下
定义变量:    Dim 判断量 As String
然后 设法使得变量求得结果        判断量 = “ < 长度 >0 or 宽度 > 0 >”  

 回到顶部
帅哥哟,离线,有人找我吗?
zhangchi96
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2022/10/15 22:33:00 [只看该作者]

如果有多重条件还可以这样
     设法使得变量求得结果        判断量 = “ <( 长度 >0 or 宽度 > 0 ) and 选定 = true  >”  

 回到顶部