ItemDataBound

Får inte denna kod, som är från en bok, att fungera. Har en repeater och dess datakälla är ett dataset, och när itemDataBound eventet körs så skall den kolla om det finns data i fältet i datakällan, om så göra något.

private sub repMessages_itemDatabound(byval sender as object, byval e as repeateritemeventargs) handles repMessages.itemdatabound
   select case e.item.itemtype
      case listitemtype.item, listitemtype.alternatingitem
         dim dbr as DbDataRecord
         dbr = DirectCast(e.item.dataitem,DbDataRecord)
         dim strEpost as string = dbr("db_epost").tostring
         if strEpost.length > 0 then
            dim lc as new literal()
            lc.text = " - " & strEpost
            e.item.controls.add(lc)
         end if
   end select
end sub