[问题]为什么这串代码老是错了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [问题]为什么这串代码老是错了？

共有2081人关注过本帖树形打印复制链接主题：[问题]为什么这串代码老是错了？

zto001

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

[问题]为什么这串代码老是错了？ 发帖心情

Post By：2019/10/6 12:44:00 [只看该作者]

dim 包号 as String

If 包号.Length = 7 Then ’之前是 If 包号 = '' Then 和 If 包号 = isnot nothing Then

Dim 包s As List(of DataRow) = DataTables("退件扫描").SQLSelect("包号= '" & 包号 & "' And 扫描类型='生成包号' or 扫描类型='T-已收退件' ")

For Each 包 As DataRow In 包s

快递物流 =快递物流 & Chr(13) & Chr(10) & 包("扫描时间") & " | 【"& 包("上下站") & "】" & 包("扫描人") & "对包" & 包("包号") & "进行:" & 包("扫描类型") & "操作"

End If

这串代码老是执行包号为空值的数据。判断是否为空没一点用，这是为什么？

zoyong

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2019/10/6 13:09:00 [只看该作者]

If 包号 > "" Then

If 包(包号) isnot nothing then

[此贴子已经被作者于2019/10/6 13:10:27编辑过]

zto001

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1465 积分：10403 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2019/10/6 13:23:00 [只看该作者]

还是一样 isnot nothing ；>“” ; =“” else 代码。。这些都是错的都把空值给带进来了

zoyong

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：656 积分：7786 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2019/10/6 14:25:00 [只看该作者]

贴出所有代码

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/6 14:27:00 [只看该作者]

If 包号 > "" andalso 包号.Length = 7 Then

主题：[问题]为什么这串代码老是错了？