Domino 9 und frühere Versionen > Entwicklung

Casts in Lotusscript

<< < (2/4) > >>

animate:
Ok, abgesehen von dem, was ich bisher geschrieben habe: was zeigt dir denn der Debugger an. Ist in doc und sd jeweils etwas enthalten?

oz:
Das mit den zwei typed Constructors ist mir natürlich zuerst in den Sinn gekommen. Das geht aber in LotusScript aber wohl nicht, weil es keine 2 Methoden mit dem gleichen Namen aber unterschiedlicher Signatur kann. Heißt also Method Overloading geht nicht. Oder habe ich da was übersehen?

Gruß

Oz

eknori:
Also grundsätzlich funktioniert der Code; habe das in einem Button mal getestet

Sub cNew ( doc As Variant )
   
   If doc Isa "NotesUIDocument" Then
      Messagebox "is a NotesUIDocument"
      Set sd = doc
      Messagebox sd.FieldGetText("fldDBServer")         
   Else
      Messagebox "not"
   End If
End Sub

und im Click

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Call cNew ( workspace.CurrentDocument.Document )
                Call cNew ( workspace.CurrentDocument )
End Sub

koehlerbv:
IsA funktioniert wohl, aber


--- Code: --- Set sd = doc
--- Ende Code ---

bringt den Type mismatch.

Bernhard

eknori:
OK, versuche mal folgenden Stunt

Sub cNew ( doc As Variant )
   Dim ws As New NotesUIWorkspace
   If doc Isa "NotesUIDocument" Then
      Messagebox "is a NotesUIDocument"
      ws.EditDocument False,doc.document
      Set sd = ws.CurrentDocument
      Messagebox sd.FieldGetText("Title")         
   Else
      Messagebox "not"
   End If
End Sub

obwohl da ja eigentlich unsinn ist:

Sub cNew ( doc As Variant )
   Dim ws As New NotesUIWorkspace
   If doc Isa "NotesUIDocument" Then
      Messagebox "is a NotesUIDocument"
      Set sd = ws.CurrentDocument
      Messagebox sd.FieldGetText("Title")         
   Else
      Messagebox "not"
                                Set BackEndDoc = doc.document
   End If
End Sub

wäre wohl die Lösung, oder habe ich mich da jetzt auch verrannt  ?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete