以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [问题]为什么这串代码老是错了?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141597)

--  作者:zto001
--  发布时间: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) & 包("扫描时间") & " | 【"& 包("上下站") & "】" & 包("扫描人") & "对包" & 包("包号") &  "进行:" & 包("扫描类型") & "操作"
   Next
   End If


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

--  作者:zoyong
--  发布时间:2019/10/6 13:09:00
--  
If  包号 > "" Then    

If 包(包号) isnot nothing then
[此贴子已经被作者于2019/10/6 13:10:27编辑过]

--  作者:zto001
--  发布时间:2019/10/6 13:23:00
--  
还是一样 isnot nothing  ;>“” ; =“” else 代码  。。这些都是错的都把空值给带进来了
--  作者:zoyong
--  发布时间:2019/10/6 14:25:00
--  
 贴出所有代码
--  作者:有点蓝
--  发布时间:2019/10/6 14:27:00
--  
If  包号  > "" andalso 包号.Length = 7 Then