DataTplSimpleList.vb
- ''
- '' This code is part of Document Solutions for Word demos.
- '' Copyright (c) MESCIUS inc. All rights reserved.
- ''
- Imports System.IO
- Imports System.Drawing
- Imports System.Text
- Imports System.Data
- Imports System.Linq
- Imports System.Globalization
- Imports GrapeCity.Documents.Word
-
- '' This sample uses data templates to print a simple list of items
- '' from a hierarchical data source, uppercasing each item.
- Public Class DataTplSimpleList
- Function CreateDocx() As GcWordDocument
- '' The data source (ocean And sea data from Wikipedia):
- Dim oceans =
- {
- New With {.name = "Pacific", .areaOfWorldOcean = 0.466, .volumeOfWorldOcean = 0.501, .seas =
- {New With {.name = "Australasian Mediterranean Sea"}, New With {.name = "Philippine Sea"}, New With {.name = "Coral Sea"}, New With {.name = "South China Sea"}}},
- New With {.name = "Atlantic", .areaOfWorldOcean = 0.235, .volumeOfWorldOcean = 0.233, .seas =
- {New With {.name = "Sargasso Sea"}, New With {.name = "Caribbean Sea"}, New With {.name = "Mediterranean Sea"}, New With {.name = "Gulf of Guinea"}}},
- New With {.name = "Indian", .areaOfWorldOcean = 0.195, .volumeOfWorldOcean = 0.198, .seas =
- {New With {.name = "Arabian Sea"}, New With {.name = "Bay of Bengal"}, New With {.name = "Andaman Sea"}, New With {.name = "Laccadive Sea"}}},
- New With {.name = "Southern", .areaOfWorldOcean = 0.061, .volumeOfWorldOcean = 0.054, .seas =
- {New With {.name = "Weddell Sea"}, New With {.name = "Somov Sea"}, New With {.name = "Riiser-Larsen Sea"}, New With {.name = "Lazarev Sea"}}},
- New With {.name = "Arctic", .areaOfWorldOcean = 0.043, .volumeOfWorldOcean = 0.014, .seas =
- {New With {.name = "Barents Sea"}, New With {.name = "Greenland Sea"}, New With {.name = "East Siberian Sea"}, New With {.name = "Kara Sea"}}}
- }
-
- Dim doc = New GcWordDocument()
-
- '' Add the data source to the data template data sources
- '' (note that in this release, only one data source can be added):
- doc.DataTemplate.DataSources.Add("ds", oceans)
-
- '' Add a list template so that the data Is formatted as a list:
- Dim myListTemplate = doc.ListTemplates.Add(BuiltInListTemplateId.BulletDefault, "myListTemplate")
-
- '' The single paragraph added to the document contains template tags
- '' - {{#ds}}..{{/ds}} -- root template, 'ds' is the name of the data source
- '' - {ds.seas.name} -- fetches the sea name
- '' - :toupper() -- uppercases the data:
- Dim p = doc.Body.Paragraphs.Add("{{#ds}}{{ds.seas.name}:toupper()}{{/ds}}", doc.Styles(BuiltInStyleId.ListParagraph))
- p.ListFormat.Template = myListTemplate
-
- '' This call expands all data templates in the document,
- '' replacing template tags with data (iterating over all data items):
- doc.DataTemplate.Process(CultureInfo.GetCultureInfo("en-US"))
-
- '' Done
- Return doc
- End Function
- End Class
-