Re: Migrating to Harbour
Posted:
Wed Dec 24, 2014 5:16 pm
by Antonio Linares
Enrico,
I meant what do you see in Excel. What is shown is Excel ?
Not the value that you get from Harbour.
Re: Migrating to Harbour
Posted:
Wed Dec 24, 2014 5:31 pm
by Enrico Maria Giordano
Antonio,
Antonio Linares wrote:I meant what do you see in Excel. What is shown is Excel ?
Not the value that you get from Harbour.
Sorry. I see an empty cell. So we only need an automatic convertion from CTOD( "" ) to NIL.
EMG
Re: Migrating to Harbour
Posted:
Wed Dec 24, 2014 5:33 pm
by Antonio Linares
Enrico,
have you tried this ?
oSheet:Cells( 1, 1 ):Value = nil
Re: Migrating to Harbour
Posted:
Wed Dec 24, 2014 6:09 pm
by Enrico Maria Giordano
Antonio,
Antonio Linares wrote:have you tried this ?
oSheet:Cells( 1, 1 ):Value = nil
Yes, I already reported the result. It works.
EMG
Re: Migrating to Harbour
Posted:
Wed Dec 24, 2014 6:17 pm
by nageswaragunupudi
As of now there is no way except review all our code and modify wherever dates are assigned.
oSheet:Cells(r,c):NumberFormat := "dd-mm-yyyy" // or similar
oSheet:Cells(r,c):Value := If( Year(d) < 1900, nil, d )
I prefer
oSheet:Cells(r,c):Value := If( Year(d) < 1900, AdoNull(), d )
This works with ADO also.
Re: Migrating to Harbour
Posted:
Wed Dec 24, 2014 6:29 pm
by Enrico Maria Giordano
Nages,
absolutely impractical...
EMG
Re: Migrating to Harbour
Posted:
Wed Jan 07, 2015 1:42 pm
by Enrico Maria Giordano
Dear friends,
any news? I'm stuck with my Harbour migration...
EMG
Re: Migrating to Harbour
Posted:
Wed Jan 07, 2015 9:20 pm
by Antonio Linares
Enrico,
What is missing ?
I mean, something that really stops you to migrate to Harbour
Re: Migrating to Harbour
Posted:
Wed Jan 07, 2015 9:33 pm
by Antonio Linares
Enrico,
But this worked fine, right ?
oSheet:Cells( 1, 1 ):Value = nil
Re: Migrating to Harbour
Posted:
Wed Jan 07, 2015 10:17 pm
by Rick Lipkin
Enrico
Can you try something like this ?
- Code: Select all Expand view
oSheet:Range( "A:A" ):Set( "NumberFormat", '00/00/00' ) // field mask
// sets headers
oSheet:Cells( 1, 1 ):value := "Date"
...
...
...
Do while ...
oSheet:Cells( nRow, 1 ):Value := ctod("")
...
....
nRow++
skip
Enddo
In my code NumberFormat works on Char as well as numeric .. perhaps in it would force the above picture clause on column 1 to 00/00/00 ?
Rick Lipkin
Re: Migrating to Harbour
Posted:
Wed Jan 07, 2015 10:20 pm
by Enrico Maria Giordano
Antonio,
Antonio Linares wrote:But this worked fine, right ?
oSheet:Cells( 1, 1 ):Value = nil
Yes. But I have far too many places when dates can be empty.
Anyway, does it make sense that we can assign all empty types except date? These all work:
- Code: Select all Expand view
oSheet:Cells( 1, 1 ):Value = ""
oSheet:Cells( 1, 1 ):Value = 0
oSheet:Cells( 1, 1 ):Value = .F.
EMG