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

老师，我用这个代码：

cmd.CommandText = "Insert Into 尺寸参数方案库 (序号,层级,参数名称,配置,尺寸名称,数值,备注) Values('" & xh2 & "','" & cj3 & "','" & .Rows(i)("参数名称") & "' ,'" & .Rows(i)("配置") & "','"& .Rows(i)("尺寸名称") &"','"& .Rows(i)("最终数值") &"','"& th &"')"

向数据库里写值，赋完值后，发现尺寸参数方案库这个表中“【配置】”本来有空的、有不空的，但这样赋值空的显示的不是（Null），后面查询空值时就没法用“[配置] is Null”。

怎么能赋值时空的就赋值为（Null）？

& IIf(.Rows(i)("配置")>"",.Rows(i)("配置"),Nothing) &

也可查询 "[配置]> ''"

方法1、改为参数化：http://www.foxtable.com/webhelp/topics/3266.htm （建议）

2、

cmd.CommandText = "Insert Into 尺寸参数方案库 (序号,层级,参数名称,配置,尺寸名称,数值,备注) Values('" & xh2 & "','" & cj3 & "','" & .Rows(i)("参数名称") & "' ," & IIF(.Rows(i).isnull("配置"),"NULL","'" & .Rows(i)("配置") & "'") & ",'"& .Rows(i)("尺寸名称") &"','"& .Rows(i)("最终数值") &"','"& th &"')"

老师，有2个问题：

1 改为参数化之后，赋空值的格式怎么写：

'With Tables("tb4_尺寸信息")

'For i As Integer = 0 To ccxxhs-1

'xh2 = xh2+1

'cj3 = cj4 & "." & i+1

'cmd.CommandText = "Insert Into 尺寸参数方案库 (序号,层级,参数名称,配置,尺寸名称,数值,备注) Values(?,?,?,?,?,?,?)"

'cmd.Parameters.Add("@序号",xh2)

'cmd.Parameters.Add("@层级",cj3)

'cmd.Parameters.Add("@参数名称",iif(.Rows(i).Isnull("参数名称"),"Null",.Rows(i)("参数名称")))

'cmd.Parameters.Add("@配置",iif(.Rows(i).Isnull("配置"),"Null",.Rows(i)("配置")))

'cmd.Parameters.Add("@尺寸名称",iif(.Rows(i).Isnull("尺寸名称"),"Null",.Rows(i)("尺寸名称")))

'cmd.Parameters.Add("@数值",iif(.Rows(i).Isnull("最终数值"),"Null",.Rows(i)("最终数值")))

'cmd.Parameters.Add("@备注",th)

'cmd.ExecuteNonQuery

'Next

'End With

按照上面写，在单元格里赋值的就是NULL这4个字符。

2 按照上面改为参数化的方式后，能赋值第一行，第二行就报错：

调用的目标发生了异常。

已添加了具有相同键的项。

……

cmd.CommandText = "Insert Into 尺寸参数方案库 (序号,层级,参数名称,配置,尺寸名称,数值,备注) Values(?,?,?,?,?,?,?)"

cmd.Parameters.clear

cmd.Parameters.Add("@序号",xh2)

cmd.Parameters.Add("@层级",cj3)

cmd.Parameters.Add("@参数名称",iif(.Rows(i).Isnull("参数名称"),nothing,.Rows(i)("参数名称")))

……

非常感谢老师，可以了

主题：如何让值显示为Null