未设置对象变量或 With 块变量 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "制造产品号" Then

If e.newvalue.startswith("B") OrElse e.newvalue.startswith("C")

e.DataRow("类型") = "侧板"

End If

改为

If e.DataCol.Name = "制造产品号" Then

if e.newvalue > "" then

If e.newvalue.startswith("B") OrElse e.newvalue.startswith("C")

e.DataRow("类型") = "侧板"

End If

end if

End If

-----

If e.DataCol.Name = "制造产品号" Then

If e.newvalue.contains("钣金")

e.DataRow("类型") = "钣金"

ElseIf e.newvalue.contains("铝槽")

e.DataRow("类型") = "铝槽"

ElseIf e.newvalue.contains("铝管")

e.DataRow("类型") = "铝管"

Else

If e.DataRow("piao号").contains("钣金")

e.DataRow("类型") = "钣金"

ElseIf e.DataRow("piao号").contains("铝槽")

e.DataRow("类型") = "铝槽"

ElseIf e.DataRow("piao号").contains("铝管")

e.DataRow("类型") = "铝管"

End If

改为

If e.DataCol.Name = "制造产品号" OrElse Then

If e.newvalue > "" Then

If e.newvalue.contains("钣金")

e.DataRow("类型") = "钣金"

ElseIf e.newvalue.contains("铝槽")

e.DataRow("类型") = "铝槽"

ElseIf e.newvalue.contains("铝管")

e.DataRow("类型") = "铝管"

ElseIf e.DataRow.Isnull("piao号") = False

If e.DataRow("piao号").contains("钣金")

e.DataRow("类型") = "钣金"

ElseIf e.DataRow("piao号").contains("铝槽")

e.DataRow("类型") = "铝槽"

ElseIf e.DataRow("piao号").contains("铝管")

e.DataRow("类型") = "铝管"

End If

主题：未设置对象变量或 With 块变量