535
社区成员
发帖
与我相关
我的任务
分享怎么判断rtf域的值为空
@If(@Length(@Trim(makeresult))>0;@Command([Compose];"resultform");@URLOpen(url))
makeresult是rtf域 怎么判断它的值为空不
这判断不能判断出来
makeresult是rtf域 怎么判断它的值为空不
这判断不能判断出来
...全文
请发表友善的回复…
发表回复
williw 2006-08-09
- 打赏
- 举报
@If(@Length(@Abstract([TRYFIT]; 64994; ""; "body"))>0;"非空";"空")
xlh0902 2006-08-09
- 打赏
- 举报
Function IsRTFNull(rtfield As String) As Integer
On Error Goto Errhandle
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
currentfield = uidoc.CurrentField
Call uidoc.GotoField(rtfield)
Call uidoc.SelectAll
Call uidoc.DeselectAll
If currentfield <> "" Then
Call uidoc.GotoField(currentfield)
End If
IsRTFNull = False
Exit Function
Errhandle:
Select Case Err
Case 4407
'the DeselectAll line generated an error message, indicating that the ri
ch text field does not contain anything
If currentfield <> "" Then
Call uidoc.GotoField(currentfield)
End If
IsRTFNull = True
Exit Function
Case Else
'For any other error, force the same error to cause LotusScript to do th
e error handling
Error Err
End Select
End Function
On Error Goto Errhandle
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
currentfield = uidoc.CurrentField
Call uidoc.GotoField(rtfield)
Call uidoc.SelectAll
Call uidoc.DeselectAll
If currentfield <> "" Then
Call uidoc.GotoField(currentfield)
End If
IsRTFNull = False
Exit Function
Errhandle:
Select Case Err
Case 4407
'the DeselectAll line generated an error message, indicating that the ri
ch text field does not contain anything
If currentfield <> "" Then
Call uidoc.GotoField(currentfield)
End If
IsRTFNull = True
Exit Function
Case Else
'For any other error, force the same error to cause LotusScript to do th
e error handling
Error Err
End Select
End Function
