Foxtable(狐表)用户栏目专家坐堂 → [求助]请问空值如何跟字符串连接


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

主题:[求助]请问空值如何跟字符串连接

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


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
[求助]请问空值如何跟字符串连接  发帖心情 Post By:2022/5/24 15:55:00 [只看该作者]

事情如下
我通过做了两个  iff ( 条件   ,空值  ,结果是:  );
最终我想把两辆 iff 的结果 连接成字符串,发现,当条件成立是,为空值的时候,无法正常的连接成字符串
想问一下,如果将空值跟正常的字符串连接起来

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2022/5/24 16:00:00 [只看该作者]

如果是表达式:

iff ( 条件  ,'' ,结果)

注意是两个单引号,不是双引号。




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


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(狐狸爸爸)如果是表达式:iff ( 条件  ...  发帖心情 Post By:2022/5/24 16:05:00 [只看该作者]

Dim t1 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("text1")
Dim t2 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("text2")
Dim t3 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("text3")


Dim r1 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("jytxt")
Dim r2 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("sytxt")
Dim r3 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("cost")


Dim t1_txt As String = IIF(t1.Text.Length = 0 ,''," 类别: "& t1.text &" " )
Dim t2_txt As String = IIF(t1.Text.Length = 0 ,''," 名称: "& t2.text &" " )
Dim t3_txt As String = IIF(t1.Text.Length = 0 ,''," 规格型号: "& t3.text &" " )

Dim j As String = t1_txt & t2_txt & t3_txt

Dim r1_txt As String = r1.Text
Dim r2_txt As String = r2.Text
Dim r3_txt As String = r3.Text

Tables("查询表").AddNew

Dim r As Row = Tables("查询表").Current
r("内容") = j
r("净用量") = r1_txt
r("实用量") = r2_txt
r("不含税合计") = r3_txt

改成单引号后报错

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111411 积分:567125 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/24 16:18:00 [只看该作者]

代码使用双引号,表达式才是单引号

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


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(有点蓝)代码使用双引号,表达式才是单引号  发帖心情 Post By:2022/5/24 16:19:00 [只看该作者]

Dim t1 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("text1")
Dim t2 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("text2")
Dim t3 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("text3")


Dim r1 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("jytxt")
Dim r2 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("sytxt")
Dim r3 As RibbonMenu.TextBox = RibbonTabs("detail").Groups("汇总").Items("cost")


Dim t1_txt As String = IIF(t1.Text Is Nothing ,"丨"," 类别: "& t1.text &" " )
Dim t2_txt As String = IIF(t1.Text Is Nothing ,"丨"," 名称: "& t2.text &" " )
Dim t3_txt As String = IIF(t1.Text Is Nothing ,"丨"," 规格型号: "& t3.text &" " )




Dim j As String = t1_txt & t2_txt & t3_txt

Dim r1_txt As String = r1.Text
Dim r2_txt As String = r2.Text
Dim r3_txt As String = r3.Text

Tables("查询表").AddNew

Dim r As Row = Tables("查询表").Current
r("内容") = j
r("净用量") = r1_txt
r("实用量") = r2_txt
r("不含税合计") = r3_txt

用nothing ,怎么也都执行最后面的语句

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111411 积分:567125 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/24 16:21:00 [只看该作者]

Dim t1_txt As String = IIF(t1.Text = "" ,"丨"," 类别: "& t1.text &" " )

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


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(有点蓝)Dim t1_txt As String = IIF(t1.Text...  发帖心情 Post By:2022/5/24 16:25:00 [只看该作者]

已解决,谢谢

 回到顶部