Hi Can someone please tell me why my datagrid doesn't populate with data
properly...
For some reason the DataNavigateUrl FormatString populates ok but Text
doesn't???
E.G:
Text="<%Contain er.DataItem(Nam e) %>"
I would really appritiate any help!
Inline code:::
<Columns>
<asp:HyperLinkC olumn HeaderText="" DataNavigateUrl Field="Name"
DataNavigateUrl FormatString="m yUrl.aspx?id={0 }" Text="<img
src='../images/user.gif' border='0'>" Target="_blank" ></asp:HyperLinkCo lumn>
<asp:HyperLinkC olumn HeaderText="Nam e" DataNavigateUrl Field="Name"
DataNavigateUrl FormatString="{ 0}" Text="<%Contain er.DataItem(Nam e) %>">
</asp:HyperLinkCo lumn>
<asp:HyperLinkC olumn HeaderText="Dep t." DataNavigateUrl Field="Dept."
DataNavigateUrl FormatString="{ 0}" Text="<%Contain er.DataItem(Dep t.) %>">
</asp:HyperLinkCo lumn>
<asp:HyperLinkC olumn HeaderText="Ext ." DataNavigateUrl Field="Ext"
DataNavigateUrl FormatString="{ 0}" Text="<%Contain er.DataItem(Ext ) %>">
</asp:HyperLinkCo lumn>
<asp:HyperLinkC olumn HeaderText="Ema il" DataNavigateUrl Field="Email"
DataNavigateUrl FormatString="m ailto:{0}" Text="<%Contain er.DataItem(Ema il)
%>">
</asp:HyperLinkCo lumn>
</Columns>
::CODE BEHIND::
Sub BindGrid(Option al ByVal alpha As String = "")
Dim strADPath As String
strADPath = "netdomain.usem bassy.dk"
Dim de As DirectoryEntry = New DirectoryEntry( "LDAP://" & strADPath,
"netadmin", "N37au7h0R" )
Dim src As DirectorySearch er
If alpha = "" Then
DataGrid1.Allow Paging = True
src = New
DirectorySearch er("(&(objectCa tegory=Person)( objectClass=use r))")
Else
DataGrid1.Allow Paging = False
src = New
DirectorySearch er("(&(objectCa tegory=Person)( objectClass=use r)(sn=" & alpha &
"*))")
End If
src.SearchRoot = de
src.SearchScope = SearchScope.Sub tree
For Each res As SearchResult In src.FindAll
Dim dr As DataRow = ds.Tables("cont acts").NewRow
dr(" ") = "<img src='../images/user.gif'>"
If res.Properties. Contains("sn") And
res.Properties. Contains("given Name") And res.Properties. Contains("Initi als")
Then
dr("Name") = CStr(res.Proper ties("givenName ")(0)) & ", " &
CStr(res.Proper ties("sn")(0)) & " " & CStr(res.Proper ties("Initials" )(0))
Else
dr("Name") = ""
End If
If res.Properties. Contains("physi calDeliveryOffi ceName") Then
dr("Dept.") =
CStr(res.Proper ties("physicalD eliveryOfficeNa me")(0))
Else
dr("Dept.") = ""
End If
If res.Properties. Contains("telep honeNumber") Then
Dim TeleNumber As String =
CStr(res.Proper ties("telephone Number")(0))
dr("Ext") = "#" & Right(TeleNumbe r, Len(TeleNumber) -
InStr(TeleNumbe r, "1"))
Else
dr("Ext") = ""
End If
If res.Properties. Contains("mail" ) Then
dr("Email") = CStr(res.Proper ties("mail")(0) )
Else
dr("Email") = ""
End If
ds.Tables("cont acts").Rows.Add (dr)
Next
' Binds Contact data from Active Directory to DataGrid
DataGrid1.DataS ource = ds.Tables("cont acts")
DataGrid1.DataB ind()
End Sub
