-1

以下代码在 vb.net 中生成了这两个故障排除提示，代码构建没有错误。本地窗口将 OrderContext 下的所有内容列为“Nothing”、0.0 或“False”，当它停止在尝试设置 address1 的行上时。

“使用 new 关键字创建对象实例。”
“在调用方法之前检查确定对象是否为空。”

Imports TPETest.com.nicusa.cdc.tpe2_ks

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim PEService As New PaymentEngineService
        Dim OrderContext() As com.nicusa.cdc.tpe2_ks.WSOrderContext

        OrderContext.customer.address.address1 = "1233 Test Dr."
        OrderContext.customer.address.city = "City"
        OrderContext.customer.address.state = "KS"
        OrderContext.customer.address.zip = "66099"
        OrderContext.attributes.SetValue("John Smith", 1)
        OrderContext.attributes.SetValue("1233 Test Dr", 2)
4

1 回答 1

3

您需要放在Option Strict On模块的顶部。这将帮助您确定您声明OrderContext为一个数组，并且作为一个数组，它没有customer或attributes属性。

您可能想输入

Dim OrderContext As New com.nicusa.cdc.tpe2_ks.WSOrderContext
于 2012-11-27T22:54:00.990 回答