2012-11-27 128 views
-1

以下代码在vb.net中生成这两个故障排除提示 代码无任何错误地生成。当它停止在尝试设置地址1的行上时,本地窗口将OrderContext下的所有内容都列为“Nothing”,0.0或“False”。使用新词创建对象实例

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

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) 
+2

是否有此问题或者是你给了我们一个家庭作业? –

回答

3

您需要将Option Strict On放在模块的顶部。这将帮助您确定您将OrderContext声明为一个数组,并且作为一个数组,它不具有customerattributes属性。

你可能想键入

Dim OrderContext As New com.nicusa.cdc.tpe2_ks.WSOrderContext