随笔分类 - Domino Notesにつぃて
摘要:① ボタンのクリック事件:Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc =ws.CurrentDocument content = uidoc.Fie...
阅读全文
摘要:加一个中间文书存储doc: If Not udoc Is Nothing Then Dim askme As Integer askme = ws.Prompt (PROMPT_YESNO, _ "クリアの確認", "既にデータがあります、先月のデータを直接削除しますか?手操作で削除しますか?") ...
阅读全文
摘要:message并不能达到想要的目的: If Not udoc Is Nothing Then 'MessageBox "既にデータがあります、先月のデータを削除してください。",MB_OK,"クリア確認" If MessageBox("既にデータがあります、先月のデータを削除しますか?", _ ...
阅读全文
浙公网安备 33010602011771号