Foxtable(狐表)用户栏目专家坐堂 → [求助]如何判断备注型字段为空值


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

主题:[求助]如何判断备注型字段为空值

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


加好友 发短信
等级:小狐 帖子:394 积分:4047 威望:0 精华:0 注册:2017/3/24 15:10:00
[求助]如何判断备注型字段为空值  发帖心情 Post By:2021/4/1 9:53:00 [只看该作者]



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


图片点击可在新窗口打开查看此主题相关图片如下:1-2_20210401095109.png
图片点击可在新窗口打开查看

两种情况很诡异,怎么能判断为真空呢?

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


加好友 发短信
等级:超级版主 帖子:106505 积分:541684 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/1 9:58:00 [只看该作者]

代码文字发上来,不用截图

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


加好友 发短信
等级:小狐 帖子:394 积分:4047 威望:0 精华:0 注册:2017/3/24 15:10:00
  发帖心情 Post By:2021/4/1 10:07:00 [只看该作者]

Dim max As String
Dim dr As DataRow=DataTables("报名缴费").SQLFind("缴费编号 = '201712-0003087075'")
Dim Values() As String
Dim ksjl As String = dr("课时记录")

    ksjl = ksjl.Replace(vbcrlf & vbcrlf,vbcrlf)
    Values = ksjl.split(vbcrlf)
    output.show(values.count)
    For Each i As String In values
        output.show(i)
    Next

[此贴子已经被作者于2021/4/1 10:07:11编辑过]

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


加好友 发短信
等级:小狐 帖子:394 积分:4047 威望:0 精华:0 注册:2017/3/24 15:10:00
  发帖心情 Post By:2021/4/1 10:10:00 [只看该作者]

很好描述:备注型的字段内一定保存着一个“vbcrlf 换行符号,无论如何都去不掉,不然怎么会生成一个数组的?
[此贴子已经被作者于2021/4/1 10:10:50编辑过]

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


加好友 发短信
等级:超级版主 帖子:106505 积分:541684 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/1 10:11:00 [只看该作者]

Dim max As String
Dim dr As DataRow=DataTables("报名缴费").SQLFind("缴费编号 = '201712-0003087075'")
if dr isnot nothing then
if dr.isnull("课时记录") then
msgbox("没有值")
else
Dim Values() As String
Dim ksjl As String = dr("课时记录")

    ksjl = ksjl.Replace(vbcrlf & vbcrlf,vbcrlf)
    Values = ksjl.split(vbcrlf)
    output.show(values.count)
    For Each i As String In values
        output.show(i)
    Next
end if
end if
[此贴子已经被作者于2021/4/1 10:10:52编辑过]

 回到顶部