NOTESITEM 下拉列表中的值修改和删除办法

如果NOTESITEM的值是单值的话，你可以
 itemWflist.values = "2"

如果NTOESIEMd的值是多值的话，而你又想修改其中某一项的值
 i = -1
 Dim tmpList() As Variant
 Forall v In itemWflist.values
  i = i + 1
  Redim Preserve tmpList(i)
  If v = "需要修改的数值" Then
   tmpList(i) = "修改的数值"
  Else
   tmpList(i) = v
  End If

 End Forall

 itemWflist.values = tmpList