The Weird and The Wonderful

The Weird and The Wonderful forum is a place to post Coding Horrors, Worst Practices, and the occasional flash of brilliance.

We all come across code that simply boggles the mind. Lazy kludges, embarrassing mistakes, horrid workarounds and developers just not quite getting it. And then somedays we come across - or write - the truly sublime.

Post your Best, your worst, and your most interesting. But please - no programming questions . This forum is purely for amusement and discussions on code snippets. All actual programming questions will be removed.

 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.

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.