在Infopath里面用VB.net编程，老是出现System.NullReferenceException错误

[geng3stone]

System.NullReferenceException was unhandled by user code
Message="Object reference not set to an instance of an object."
Source="LeaveRequisitionForm"
StackTrace:
at LeaveRequisitionForm.FormCode.FormEvents_Loading(Object sender,
LoadingEventArgs e)
at
Microsoft.Office.InfoPath.Internal.FormEventsHost.OnLoad(DocReturnEvent
pEvent)
at
Microsoft.Office.Interop.InfoPath.SemiTrust._XDocumentEventSink2_SinkHelper.OnLoad(DocReturnEvent pEvent)

大概就是这样的问题，我是初学者
现在再用Infopath+Workflow搞Sharepoint，但是现在有一些在infopath中的数据处理
但是现在哪怕是用MSDN上的实例编程也会出现这样的错误
看国外的一些网站说是Xpathnavigator没有声明的原因
但是我用类似的代码
public XPathNavigator _xPathNav
{
get { return this.CreateNavigator(); }
}
来声明，也不行，直接就报语法错误了
但是实际上开始就有import System.XML.Xpath的声明啊，应该包括Xpathnavigator的吧
哪位帮个忙，我很急，下周就要叫初稿了

[tinalucky]

？没人？帮楼主顶一个!

[geng3stone]

还有请教一下，如何取得Checkbox的值
还有就是如何更改一个日期型数据的值。。。
都是在Infopath里面操作~~

[blues_zhao_yang]

-_-!
你的代码我没看懂，不好意思

Checkbox的值：Checkbox.Value
更改日期可以用DateTimePicker控件，把控件的值赋给一个DateTime类型的变量

[blues_zhao_yang]

说错了

Checkbox的值是：Checkbox.Checked
DateTimePicker的值是：DateTimePicker.Value

[geng3stone]

谢谢咯
不过比如说我要判断Checkbox的值是否为True
但是好像XML里面这个xpathnavigator没有Checked这个属性，只有Value属性
if target1.value = true then
......
end if

这样就会报之前的错误

[blues_zhao_yang]

System.NullReferenceException: 未将对象引用设置到对象的实例
是这样的提示吗？

这种错误多半是没有将对象实例化引起的
看看你引用的变量里有没有需要New关键字实例化的地方
有些变量必须New以后才可以使用。

[geng3stone]

就是不知道哪个没有声明：
比如很简单的
dim target1 as XPathNavigator().SelectSingleNode("/my:myfields/my:allday",NamespaceManager)

判断这个Checkbox是否选中

if target1.value = true then
。。。。。
到这里就报错了

[geng3stone]

自己顶一下，大家要帮忙呀。。。

[blues_zhao_yang]

public XPathNavigator _xPathNav
{
get { return this.CreateNavigator(); }
}
这个是C#的写法吧？？你到底是VB程序还是C#程序？？
一个工程里不能这样嵌套吧？？

[geng3stone]

[Quote=引用 3 楼 blues_zhao_yang 的回复:]
public XPathNavigator _xPathNav
{
get { return this.CreateNavigator(); }
}
这个是C#的写法吧？？你到底是VB程序还是C#程序？？
一个工程里不能这样嵌套吧？？
[/Quote]

infopath表单的默认编程语言是VB...我是直接在表单.vb文件中写代码的
那么敢问这位老兄在VB程序中如何声明XPathNavigator呢？一定需要单独声明么？

[blues_zhao_yang]

关于XPathNavigator我不知道，无法给你帮助
只是提醒你如果要把这段代码
public XPathNavigator _xPathNav
{
get { return this.CreateNavigator(); }
}
加进去的话，要先翻译成VB的写法。
你最好把出错的代码贴出来。

[geng3stone]

Imports Microsoft.Office.InfoPath
Imports System
Imports System.Xml
Imports System.Xml.XPath
Imports System.Windows.Forms
Imports mshtml





Namespace init
Public Class FormCode
' 启用浏览器功能的表单不支持成员变量。
' 请使用代码从 FormState 词典
' 写入和读取这些值，如下所示:
'
' 注意: 以下是 Microsoft Office InfoPath 所需的过程。

' 可以使用 Microsoft Office InfoPath 对其进行修改。


Private Sub InternalStartup(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Startup
AddHandler EventManager.FormEvents.Loading, AddressOf FormEvents_Loading
AddHandler EventManager.XmlEvents("/my:myFields/my:AllDay").Changed, AddressOf AllDay_Changed

AddHandler EventManager.XmlEvents("/my:myFields/my:Date/my:StartDate").Changed, AddressOf StartDate_OnAfterChanged
AddHandler DirectCast(EventManager.ControlEvents("CTRL27_5"), ButtonEvent).Clicked, AddressOf CTRL27_5_Clicked
AddHandler EventManager.XmlEvents("/my:myFields/my:DTTest").Changed, AddressOf DTTest_Changed
AddHandler EventManager.XmlEvents("/my:myFields/my:DTTest").Changing, AddressOf DTTest_Changing
AddHandler EventManager.XmlEvents("/my:myFields/my:DTTest").Validating, AddressOf DTTest_Validating



End Sub


Public Sub FormEvents_Loading(ByVal sender As Object, ByVal e As LoadingEventArgs)
' 在此处编写代码。


Dim instance As DataSource = Me.MainDataSource

Dim mydate As XPathNavigator = CreateNavigator().SelectSingleNode("/my:myFields/my:DTTest", NamespaceManager)

mydate.SetValue(System.DateTime.Now.ToString("yyyy-MM-dd"))

End Sub

大概就是这样，FormEvents_Loading事件中代码是微软的Sample，其实就是给一个Textbox赋值，但是运行时候会出现错误

[blues_zhao_yang]

试试看
dim target1 as New XPathNavigator().SelectSingleNode("/my:myfields/my:allday",NamespaceManager)

如果还不行的话打出target1.的时候仔细看看后面的属性和方法里面都有些什么，看看value的解释是什么。

[geng3stone]

还是不行。。。最后直接用Infopath，基本实现功能了，不过还是感谢楼上