用以下代码测试Dim r As Row = Tables("订单_明细").current
Dim cmd As New SQLCommand
cmd.ConnectionName = Mydata
Dim dt As DataTable
cmd.CommandText = "SE LECT 规格,长度 From {产品编码} where [产品编码] = '" & r("产品编码") & "'"
dt = cmd.ExecuteReader()
If dt.DataRows.count > 0 Then
Dim dr2 As DataRow = dt.DataRows(0)
r("规格") = dr2("规格")
r("长度") = dr2("长度") '长度会按0填充
end if
If Tables("订单_明细").Cols("长度").IsNumeric Then
If dr2("长度") > 0 Then '不判断数值列为空时会按0填充
r("长度") = dr2("长度")
End If
Else
r("规格") = dr2("规格")
r("长度") = dr2("长度")
End If
想让后台数据值列是空值时,不要用0填充 ,,现在是每个地方都只能加上下面的代码进行判断,但是觉得很繁琐, 为什么会这样?
谢谢!
加好友 
发短信
Post By：2017/10/11 9:06:00 [显示全部帖子]
