diff options
author | Behrend Cornelius <bc@openoffice.org> | 2002-09-17 14:10:15 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2002-09-17 14:10:15 +0000 |
commit | e2bbd7b91d715e11ce5d48f1927785e8e62a2237 (patch) | |
tree | 323c04eabdbce9a053c9fe7b5ed8cdce3471f29e /wizards/source/tools/Misc.xba | |
parent | 80bca2d204bcc2f869bdec367cdb70fc584a77d0 (diff) |
#99839# german Comments translated
Diffstat (limited to 'wizards/source/tools/Misc.xba')
-rw-r--r-- | wizards/source/tools/Misc.xba | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index eea586e440d7..5bca3caa4b61 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -17,7 +17,6 @@ Dim PropList(3,1)' as String PropList(2,1) = "extra" PropList(3,0) = "IsPasswordRequired" PropList(3,1) = True -' RegisterNewDataSource("Doc_Erica_Test_Unicode", PropList()) End Sub @@ -31,7 +30,7 @@ Dim i as Integer For i = 0 To Ubound(PropertyList(), 1) sPropName = PropertyList(i,0) sPropValue = PropertyList(i,1) - oDataSource.SetPropertyValue(sPropName,sPropValue) 'GetByName(sPropName) = sPropValue 'oPropInfo.GetPropertyByName(sPropName)) = sPropValue ' PropertyList(i,0))) = PropertyList(i,1) + oDataSource.SetPropertyValue(sPropName,sPropValue) Next i If Not IsMissing(DriverProperties()) Then oDataSource.Info() = DriverProperties() @@ -270,7 +269,6 @@ End Function Function GetResText( nID as integer ) As string On Error Goto ErrorOcurred If Not IsNull(oResSrv) Then - ' eigentlich sollte hier stehen GetResText = oResSrv.getString( nID ) Else GetResText = "" |