Kaydet (Commit) 79834fc2 authored tarafından Vladimir Glazounov's avatar Vladimir Glazounov

INTEGRATION: CWS extras6 (1.28.10); FILE MERGED

2003/05/14 15:21:51 bc 1.28.10.1: #108984# problem with date-time field solved
üst 809cd02d
...@@ -221,8 +221,11 @@ Dim EmptyList() ...@@ -221,8 +221,11 @@ Dim EmptyList()
Else Else
bEnableBinaryOptionGroup = False bEnableBinaryOptionGroup = False
End If End If
Redim Preserve ResultFieldNames(m-1) If (DialogModel.optBinariesasGraphics.State = 1) And (s <> 0) Then
Redim Preserve FieldNames(m-1) ResultFieldNames() = AddListToList(ResultFieldNames(), ImgFieldNames())
Else
Redim Preserve ResultFieldNames(m-1)
End If
FieldNames() = ResultFieldNames() FieldNames() = ResultFieldNames()
DialogModel.lstFields.StringItemList = FieldNames() DialogModel.lstFields.StringItemList = FieldNames()
InitializeListboxProcedures(DialogModel, DialogModel.lstFields, DialogModel.lstSelFields) InitializeListboxProcedures(DialogModel, DialogModel.lstFields, DialogModel.lstSelFields)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment