每个变量值是否为空的判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 每个变量值是否为空的判断

共有2672人关注过本帖树形打印复制链接主题：每个变量值是否为空的判断

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/6 13:35:00 [显示全部帖子]

直接说你要做什么。逻辑是什么。一般，这样判断

Dim str As String = ""

If A <> "" Then

str &= "A不为空,"

End If

If B <> "" Then

str &= "B不为空,"

End If

If C <> "" Then

str &= "C不为空,"

End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/6 15:23:00 [显示全部帖子]

红色代码，你复制多段即可。

Dim filter As String = "1=1"
If r.isnull("一级地址") Then
filter &= " and 一级地址 is null"
Else
filter &= " and 一级地址 = '" & r("一级地址") & "'"
End If
Dim dr As DataRow = DataTables("五级地址网格关联表").Find(filter)

http://www.foxtable.com/webhelp/scr/1058.htm

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/6 16:49:00 [显示全部帖子]

Dim adapter As New SqlClient.SqlDataAdapter("select * from [可用数量表] where " & filter, cn)

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/6 17:27:00 [显示全部帖子]

Dim filter As String = "1=1"

If scddhm <> "" Then

Filter &= " and 生产订单号码 = '" & scddhm & "' "

Else

End If

If gdhh <> "" Then

Filter &= " and 工单行号 = '" & gdhh & "'"

End If

If wlbm <> "" Then

Filter &= " and 物料编码 = '" & wlbm & "'"

End If

If kwlb <> "" Then

Filter &= " and 库位类别 = '" & kwlb & "'"

End If

If startdate <> "" Then

Filter &= " and 入库时间 >= '" & startdate & "'"

End If

If enddate <> "" Then

Filter &= " and 入库时间 <= '" & enddate & "'"

End If

Dim adapter As New SqlClient.SqlDataAdapter("s elect * from [可用数量表] where " & filter, cn)

下一主题 >> << 上一主题

主题：每个变量值是否为空的判断