I have a form which the datagridview will be built manually by reading in certain data from a text file (this is because the data in the text file will change periodically)
The code is correctly adding the proper amount of rows but it is NOT putting the required values in the cells. Any thoughts?
The code is correctly adding the proper amount of rows but it is NOT putting the required values in the cells. Any thoughts?
VB.NET:
[COLOR=blue]Sub[/COLOR] Main() [COLOR=green][FONT=Lucida Sans][I]' Get a DataTable instance from helper function.[/I][/FONT][/COLOR] [COLOR=blue]Dim[/COLOR] dt [COLOR=blue]As[/COLOR] [COLOR=blue]New[/COLOR] [COLOR=#2b91af]DataTable[/COLOR] dt = GetTable() BindingSource1.DataSource = dt datagridADRORD.DataSource = BindingSource1 [COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]
VB.NET:
[COLOR=blue]Function[/COLOR] GetTable() [COLOR=blue]As[/COLOR] [COLOR=#2b91af]DataTable[/COLOR] [COLOR=green][FONT=Lucida Sans][I]' Create new DataTable instance.[/I][/FONT][/COLOR] [COLOR=blue]Dim[/COLOR] table [COLOR=blue]As[/COLOR] [COLOR=blue]New[/COLOR] [COLOR=#2b91af]DataTable[/COLOR] [COLOR=green][FONT=Lucida Sans][I]' Create four typed columns in the DataTable.[/I][/FONT][/COLOR] table.Columns.Add([COLOR=#a31515]"ADR Symbol"[/COLOR], [COLOR=blue]GetType[/COLOR]([COLOR=blue]String[/COLOR])) table.Columns.Add([COLOR=#a31515]"ADR Price"[/COLOR], [COLOR=blue]GetType[/COLOR]([COLOR=blue]Double[/COLOR])) table.Columns.Add([COLOR=#a31515]"ORD Symbol"[/COLOR], [COLOR=blue]GetType[/COLOR]([COLOR=blue]String[/COLOR])) table.Columns.Add([COLOR=#a31515]"ORD Price"[/COLOR], [COLOR=blue]GetType[/COLOR]([COLOR=blue]Double[/COLOR])) table.Columns.Add([COLOR=#a31515]"Ratio"[/COLOR], [COLOR=blue]GetType[/COLOR]([COLOR=blue]Double[/COLOR])) table.Columns.Add([COLOR=#a31515]"Currency"[/COLOR], [COLOR=blue]GetType[/COLOR]([COLOR=blue]String[/COLOR])) table.Columns.Add([COLOR=#a31515]"Currency Price"[/COLOR], [COLOR=blue]GetType[/COLOR]([COLOR=blue]Double[/COLOR])) table.Columns.Add([COLOR=#a31515]"Difference"[/COLOR], [COLOR=blue]GetType[/COLOR]([COLOR=blue]Double[/COLOR])) table.Columns.Add([COLOR=#a31515]"GoNoGo"[/COLOR], [COLOR=blue]GetType[/COLOR]([COLOR=blue]String[/COLOR])) [COLOR=green][FONT=Lucida Sans][I]'start to loop thru all the symbols in the symbols file[/I][/FONT][/COLOR] [COLOR=green][FONT=Lucida Sans][I]' first read them into an array[/I][/FONT][/COLOR] [COLOR=green][FONT=Lucida Sans][I]'the line below is for the commodity symbols file [/I][/FONT][/COLOR] [COLOR=blue]Dim[/COLOR] strText [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR] = [COLOR=#2b91af]File[/COLOR].ReadAllText([COLOR=#a31515]"F:\ADR-ORD Program\ADR-ORD Comparator\ADR-ORD Comparator\SymbolsinBBRGFormat.txt"[/COLOR]) [COLOR=blue]Dim[/COLOR] aryText() [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR] = strText.Split([COLOR=#a31515]";"[/COLOR]) strText = vbNullString [COLOR=blue]Dim[/COLOR] x [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR] [COLOR=blue]Dim[/COLOR] symADR [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR] = [COLOR=#a31515]""[/COLOR], symORD [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR] = 0, strCurncy [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR] = [COLOR=#a31515]""[/COLOR] [COLOR=blue]Dim[/COLOR] dblADRPx [COLOR=blue]As[/COLOR] [COLOR=blue]Double[/COLOR] = 0, dblORDPx [COLOR=blue]As[/COLOR] [COLOR=blue]Double[/COLOR] = 0, dblCurncyPx [COLOR=blue]As[/COLOR] [COLOR=blue]Double[/COLOR] = 0 [COLOR=blue]Dim[/COLOR] ratio [COLOR=blue]As[/COLOR] [COLOR=blue]Double[/COLOR] = 1, diff [COLOR=blue]As[/COLOR] [COLOR=blue]Double[/COLOR] = 0, goNogo [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR] = [COLOR=#a31515]""[/COLOR] [COLOR=blue]For[/COLOR] x = 0 [COLOR=blue]To[/COLOR] UBound(aryText) - 1 symADR = Split(aryText(x), [COLOR=#a31515]","[/COLOR])(0) dblADRPx = 1 [COLOR=green][FONT=Lucida Sans][I]'add bbrg formula here?[/I][/FONT][/COLOR] symORD = Split(aryText(x), [COLOR=#a31515]","[/COLOR])(1) dblORDPx = 1 [COLOR=green][FONT=Lucida Sans][I]' add bbrg formula here?[/I][/FONT][/COLOR] ratio = Split(aryText(x), [COLOR=#a31515]","[/COLOR])(2) strCurncy = Split(aryText(x), [COLOR=#a31515]","[/COLOR])(3) dblCurncyPx = 1 diff = 1 goNogo = [COLOR=#a31515]"Go"[/COLOR] [COLOR=green][FONT=Lucida Sans][I]' Add rows of data for those columns filled in the DataTable.[/I][/FONT][/COLOR] table.Rows.Add(symADR, dblADRPx, symORD, dblORDPx, ratio, strCurncy, dblCurncyPx, diff, goNogo) [COLOR=blue]Next[/COLOR] x [COLOR=blue]Return[/COLOR] table [COLOR=blue]End[/COLOR] [COLOR=blue]Function[/COLOR]