下面是我尝试在xml文件中保存SALEBLOCKENDDT标记的代码,我从UI文本框中获取该代码。当我运行这个时,我的“对象变量未设置”错误。
需要一个解决方案来保存此标记值
Dim nsPos
Dim nsParms
Dim szEndDate
Dim sResult
Dim sEndDate
sEndDate = Trim(GetFieldInput("cTxtEndDate"))
Set nsPos = CreateObject("eSpace.esNamespace")
Set nsParms = nsPOS.ApplyXML("POS\POS.xpa", 2)
szEndDate = Trim(nsParms.PARAMETERS.SALEBLOCKENDDT.Text)
If szEndDate = "" Then
nsParms.PARAMETERS.SALEBLOCKENDDT.Text = sEndDate
End If
sResult = nsPOS.save("POS\POS.xpa",2)