diff options
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 = "" |