Public Sub FillMaterials(ByVal chnode As TreeNode, ByVal chid As Integer, ByVal catid As Integer, ByVal subcat1 As Integer, ByVal subcat2 As Integer, ByVal subcat3 As Integer, ByRef i As Integer) Dim dschildlv2 As New DataSet objMaterial.category = catid objMaterial.subcat = subcat1 objMaterial.subcat1 = subcat2 objMaterial.subcat2 = subcat3 dschildlv2 = objMaterial.SearchItem If dschildlv2.Tables(0).Rows.Count > 0 Then Dim j As Integer = 0 For Each childrow As DataRow In dschildlv2.Tables(0).Rows Dim newNode2 = New TreeNode(dschildlv2.Tables(0).Rows(j).Item("MaterialTitle").ToString, dschildlv2.Tables(0).Rows(j).Item("MaterialID").ToString) newNode2.NavigateUrl = "<a href='javascript:void(0);' onclick=""javascript:return winfiledownload('" & childrow.Item("materialid").ToString & childrow.Item("materialfile").ToString & "','material');"">" & childrow.Item("materialTitle").ToString & "" 'newNode2.NavigateUrl = childrow.Item("MaterialID").ToString & childrow.Item("MaterialFile").ToString newNode2.PopulateOnDemand = False newNode2.SelectAction = TreeNodeSelectAction.Select chnode.ChildNodes.Add(newNode2) j = j + 1 Next End If End Sub
"<a href='javascript:void(0);' onclick="javascript:return winfiledownload('xxxyyy','material');">zzz"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)