将日期时间数组分配给 Domino 表单上的多值日期字段

Question

我正在从视图访问文档，读取日期时间字段，计算两个日期/时间值之间的天数，这两个日期/时间值分为四个类别。在每个类别中都有一个 for 循环，它将多个日期时间值添加到变体数组中。数组条目在 7 到 35 之间。循环之后，我喜欢将数组值分配给表单上的日期时间字段并保存文档。我使用了以下注释项：

Dim nitem as Notesitem  
Set nitem = doc.ReplaceItemValue("Datefield", dtArray)  

它不起作用。我使用了 doc.ReplaceItemValue "Datefield, dtArray 这个也不起作用。代理运行后该字段为空。我声明了一个变量并将数组分配给该变量，然后将变量分配给表单上的字段：

Dim var1 as variant
var1 = dtArray
doc.datefield = Var1

仍然没有运气查看分配给文档中字段的数组值

这是主循环

Redim dateArray(0)
For i=0 to NumberofDays -1
    set notesitem = dtitem.DateTimeValue
    call notesitem.AdjustDay(i)
    set dateArray(i) = notesitem
    Redim preserve dateArray(i+1)
Next


doc.replaceitemvalue "Datefield", dateArray

call doc.save(false, true)
erase dateArray

为什么代理运行后文档中的日期字段是空白的？我应该如何更改它以获得结果？声明如下：

谢谢

Answer 1

当您使用 NotesItem 和 NotesDateTime 类时，我认为使用 NotesItem DateTimeValue 会带来更多乐趣代码>属性。这是读/写，并返回（或期望）一个 NotesDateTime 对象。

例如，如果您有一个名为“dt”的 NotesDateTime 实例，则可以通过以下方式将其写回名为“YourDT”的字段：

Dim itDT as NotesItem
Dim dt as New NotesDateTime
' Instantiate itDT and dt
...
Set itDT.DateTimeValue = dt

因此，您应该能够获取 数组>NotesDateTime 对象，并使用此方法将其写回相关字段。

Answer 2

从数组中分配 dateTime 字段的最简单方法是：

SimpleDateFormat smdf = new SimpleDateFormat();
smdf.applyPattern("dd.MM.yyyy");
Vector dates = new Vector();
for (Date dt: dateArray) {
       dates.addElement(smdf.formatter(dt));
}; 
doc.replaceItemValue("dateField", dates);

Answer 3

这对您来说很难排除故障，因为您没有提供原始源代码。您尝试使用方法的方式有点奇怪。

以下是您正在尝试执行的操作的基本操作。日期时间字段有点棘手，但您可以使用变量数组来设置它们。

    Dim i As Integer
    Dim vDateArr() As Variant
    Dim itDate As notesItem
    ' setup date array.
    ' .........
    ' .........
    ' Now get the date field to be updated from the document
    Set itDate = doc.GetFirstItem("fieldName")
    ' loop through the array of values and make sure they're date time
    For i=0 To numberOfDays - 1
       ' ensure that the array has date type values. V_DATE is a constant defined 
       ' in LSConst.lss. V_DATE = 7, so you can still write the following line as
       ' If Datatype(vDateArr(i)) <> 7 then
       If Datatype(vDateArr(i)) <> V_DATE Then
           vDate = Cdat(vDateArr(i))
       End If
       vDateArr(i) = vDate
    Next
    ' assign the array back onto the itDate field. Even if the field is not 
    ' already a dateTime type. Assigning the array this way will make it so.
    itDate.Values = vDateArr
    Call doc.Save(True, False)

我发现在这种情况下最好使用基元，而不是对象。这里发生的事情是我确保日期值存储为日期时间值。然后将数组分配给字段，然后保存文档。有多种方法可以做到这一点，但当您想要将特定类型的数组推入字段时，这是我的首选方法。如果您可以发布原始代码，那么更正您的代码会更容易。