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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 判断空值

共有2405人关注过本帖树形打印复制链接主题：判断空值

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/22 18:07:00 [显示全部帖子]

For Each drr As DataRow In dt1.DataRows

Dim fdr As DataRow = dt2.Find("物料基本信息_物料ID = '" & drr("物料基本信息_物料ID") & "' And [物料配色] = '" & drr("物料配色") & "' And [审核] = True ")

If fdr Is Nothing Then

fdr = dt2.addnew

fdr("物料基本信息_物料ID") = drr("物料基本信息_物料ID")

fdr("物料配色") = drr("物料配色")

End If

If drr("采购应订数") <> fdr("采购应订数") Then

fdr("采购应订数") = drr("采购应订数")

fdr("静需求数") = drr("静需求数")

fdr("用量应订数") = drr("用量应订数")

fdr("订料数") = drr("订料数")

End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/23 12:04:00 [显示全部帖子]

For Each drr As DataRow In dt1.DataRows

Dim fdr As DataRow = dt2.Find("物料基本信息_物料ID = '" & drr("物料基本信息_物料ID") & "' And [物料配色] = '" & drr("物料配色") & "' And [审核] = True ")

改成

For Each drr As DataRow In dt1.select("物料基本信息_物料ID is not null and 物料配色 is not null")

Dim fdr As DataRow = dt2.Find("物料基本信息_物料ID = '" & drr("物料基本信息_物料ID") & "' And [物料配色] = '" & drr("物料配色") & "' And [审核] = True ")

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/23 15:00:00 [显示全部帖子]

Dim fdr As DataRow = dt2.Find("物料基本信息_物料ID = '" & drr("物料基本信息_物料ID") & "' And [物料配色] = '" & drr("物料配色") & "' And [审核] = True ")

改成

Dim filter as string = "[审核] = True "

If drr("物料基本信息_物料ID") = nothing then

filter = " and 物料基本信息_物料ID is null"

else

filter = " and 物料基本信息_物料ID = '" & drr("物料基本信息_物料ID") & "'"

End If

If drr("物料配色") = nothing then

filter = " and 物料配色 is null"

else

filter = " and 物料配色 = '" & drr("物料配色") & "'"

End If

Dim fdr As DataRow = dt2.Find(filter)

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

主题：判断空值