TRZDateTimeEdit and TRZListview

[sfritz]

Hi Advansys support,

You are always full of good ideas, I took your suggestion and store out the item indices in my form and it does make my data retrieval much more efficient, I am still having to open multiple data connections and wonder if there is a more efficient method.

My next question is I am storing out the month and the year for a date and when I retrieve this record to edit it I would like to set my TRZDateTimeEdit to this date but I keep getting this error:

Could not convert variant of type (OleStr) into type (Double) at line 312, column 7

Code snippet:
t_mth = iRST_Edit(“month”)
t_year = IRST_Edit (“year”)
t_date = t_mth & “/01/” & t_year
date_in = CDATE(t_date)
t_date_sel = formatdatetime(date_in,1)
CDIP_FRM.MonthEdit.date = t_date_sel

Can you please tell me why?

Next question is that I have my itemindex for my listview stored in the database as well but have not successfully been able to mark it as selected when retrieving my record into my form:

Code snippet
t_guideline = iRST_Edit(“guideline_idx”)
with CDIP_FRM.ListView.Items
for I = 0 to .Count – 1
if .Item(I) = t_guideline then
.Item(I).selected = TRUE
end if
next
end with

No syntax error.. no nothing!
Any ideas?

Topic

[Support 1]

quote:

---

I would like to set my TRZDateTimeEdit to this date but I keep getting this error:

Could not convert variant of type (OleStr) into type (Double) at line 312, column 7

---

The above error message indicates that the RzDateTimeEdit property Date requires the type Double, where you are trying to assign a String. You could fix this by assigning date_in instead of t_date_sel. However, the formatted date string t_date (MM/DD/YYYY) could be problematic if your applet runs in a locale other than English-US. Here is an alternative, locale-independent way to retrieve the date:

  t_mth = iRST_Edit("month")
  t_year = IRST_Edit("year")
  CDIP_FRM.MonthEdit.Date = DateSerial(t_year, t_mth, 1) ' VBScript function

As for selecting the correct ListView item, the expression

  if .Item(I) = t_guideline then

is comparing a object reference (pointer) with a string. I think the complete if statement should be:

  if .Item(I).Caption = t_guideline then
    .Item(I).selected = true
    exit for
  end if

I hope this helps.

Regards,
Advansys Support

[Author]

Replies