Select Case dataSetNPReport1.Spider.Rows.Count
Case 0
xrRichText1.Text = String.Format("Fråga {0}Landsting{0}Riket{0}Frågetext{1}A3{0}{0}{0}{0} - - {0} - {0}{0} - ", Chr(9), Chr(13))
Case 1
xrRichText1.Text = String.Format("Fråga {0}Landsting{0}Riket{0}Frågetext{1}{2}{0}{4}{0}{0}{5}{0}{3}", Chr(9), Chr(13), dataSetNPReport1.Spider.Rows(0).Item(0), Replace(dataSetNPReport1.Spider.Rows(0).Item(2).ToString, "*", ""), dataSetNPReport1.Spider.Rows(0).Item(5), dataSetNPReport1.Spider.Rows(0).Item(6))
Case 2
xrRichText1.Text = String.Format("Fråga {0}Landsting{0}Riket{0}Frågetext{1}{2}{0}{4}{0}{0}{5}{0}{3}{1}{6}{0}{8}{0}{0}{9}{0}{7}", Chr(9), Chr(13), dataSetNPReport1.Spider.Rows(0).Item(0), Replace(dataSetNPReport1.Spider.Rows(0).Item(2).ToString, "*", ""), dataSetNPReport1.Spider.Rows(0).Item(5), dataSetNPReport1.Spider.Rows(0).Item(6), dataSetNPReport1.Spider.Rows(1).Item(0), Replace(dataSetNPReport1.Spider.Rows(1).Item(2).ToString, "*", ""), dataSetNPReport1.Spider.Rows(1).Item(5), dataSetNPReport1.Spider.Rows(1).Item(6))
Case 3
xrRichText1.Text = String.Format("Fråga {0}Landsting{0}Riket{0}Frågetext{1}{2}{0}{4}{0}{0}{5}{0}{3}{1}{6}{0}{8}{0}{0}{9}{0}{7}{1}{10}{0}{12}{0}{0}{13}{0}{11}", Chr(9), Chr(13), dataSetNPReport1.Spider.Rows(0).Item(0), Replace(dataSetNPReport1.Spider.Rows(0).Item(2).ToString, "*", ""), dataSetNPReport1.Spider.Rows(0).Item(5), dataSetNPReport1.Spider.Rows(0).Item(6), dataSetNPReport1.Spider.Rows(1).Item(0), Replace(dataSetNPReport1.Spider.Rows(1).Item(2).ToString, "*", ""), dataSetNPReport1.Spider.Rows(1).Item(5), dataSetNPReport1.Spider.Rows(1).Item(6), dataSetNPReport1.Spider.Rows(2).Item(0), Replace(dataSetNPReport1.Spider.Rows(2).Item(2).ToString, "*", ""), dataSetNPReport1.Spider.Rows(2).Item(5), dataSetNPReport1.Spider.Rows(2).Item(6))
... You get the pattern...
People say nothing is impossible, but I do nothing every day.
|