vb.net - add column in datagridview -


i use vb.net excel

i have buttom "get name of column worksheet" combobox

this code of button:

private sub button7_click(byval sender system.object, byval e system.eventargs) handles button7.click     dim excols new dictionary(of integer, string)     form2.xlworksheet = ctype(form2.xlworkbook.sheets(form2.combobox1.text), excel.worksheet)     form2.xlworksheet.activate()      form2.xlworksheet         dim lastcol integer = form2.xlworksheet.cells(1,         form2.xlworksheet.columns.count).end(xldirection.xltoleft).column         x integer = 2 lastcol             excols.add(x, form2.xlworksheet.cells(1, x).value.tostring)         next         combobox2.datasource = new bindingsource(excols, nothing)         combobox2.valuemember = "key"         combobox2.displaymember = "value"         addhandler combobox2.selectedindexchanged, addressof            combobox2_selectedindexchanged     end end sub

this code of combobox:

private sub combobox2_selectedindexchanged(byval sender system.object, byval e system.eventargs)     form2.xlworksheet = ctype(form2.xlworkbook.sheets(form2.combobox1.text), excel.worksheet)     form2.xlworksheet.activate()     form2.xlapp.visible = true     dim key string =               cstr(directcast(combobox2.selecteditem, keyvaluepair(of integer, string)).key)     dim value string =                  directcast(combobox2.selecteditem, keyvaluepair(of integer, string)).value     dim doessheetexists boolean = false     each xs in form2.xlapp.sheets         if xs.name = value             doessheetexists = true     next      if doessheetexists = true         msgbox("sheet exists", ctype(messageboxicon.error, msgboxstyle))     else         form2.xlworksheet             dim lastrow integer = form2.xlworksheet.cells.rows.end(xldirection.xldown).row             dim colletter string = columnindextocolumnletter(cint(key))             exws2 = directcast(form2.xlworkbook.sheets.add, microsoft.office.interop.excel.worksheet)             exws2.name = value             form2.xlworksheet.range("a1:a" & lastrow.tostring).copy(exws2.range("a1"))             form2.xlworksheet.range(colletter & "1:" & colletter & lastrow.tostring).copy(exws2.range("b1"))             exws2.range("a1").font.color = system.drawing.colortranslator.toole(system.drawing.color.blue)             exws2.range("b1").font.color = system.drawing.colortranslator.toole(system.drawing.color.blue)             exws2.range("a1").interior.colorindex = 8             exws2.range("b1").interior.colorindex = 8             exws2.range("a2:a" & lastrow.tostring).interior.colorindex = 20             exws2.range("a1:a" & lastrow.tostring).horizontalalignment =       -4108              exws2.range("b1:b" & lastrow.tostring).horizontalalignment = -4108             exws2.range("a1").font.name = "times new roman"             exws2.range("b1").font.name = "times new roman"             exws2.range("b1").font.fontstyle = "gras"             exws2.range("a1").font.fontstyle = "gras"         end     end if end sub

what want add every time when select column , added datagridview

this column want add datagridview

help me please


Comments

Post a Comment

Popular posts from this blog

Payment information shows nothing in one page checkout page magento -

i using magento ver. 1.9.1.0 want remove shipping information , shipping method step 1 page checkout page. changed code in core file like in app\code\core\mage\checkout\block\onepage.php public function getsteps() { $steps = array(); $stepcodes = $this->_getstepcodes(); /* remove shipping address , shipping method */ $excludestep=array_diff($stepcodes,array('shipping','shipping_method')); //$excludestep=$stepcodes; if ($this->iscustomerloggedin()) { $stepcodes = array_diff($excludestep, array('login')); } foreach ($excludestep $step) { $steps[$step] = $this->getcheckout()->getstepdata($step); } return $steps; } and in app\code\core\mage\checkout\controllers\onepagecontroller.php public function savebillingaction() { if ($this->_expireajax()) { return; } if ($this->getrequest()-...
Read more

tcpdump - How to check if server received packet (acknowledged) -

Image
i running tcpdump on server capture traffic between server (servera) , remote server (serverb). not know how read output tcpdump. point out if serverb acknowledging packets being sent servera being received serverb? here tcpdump log: 2015-03-31 11:32:18.038284 ip (tos 0x0, ttl 64, id 30781, offset 0, flags [df], proto tcp (6), length 60) servera.14033 > serverb.8004: flags [s], cksum 0x02bd (correct), seq 337482636, win 14600, options [mss 1460,nop,nop,ts val 506588081 ecr 0,nop,wscale 7], length 0 0x0000: 4500 003c 783d 4000 4006 bae4 0a04 7a0e e.. servera.14033: flags [s.], cksum 0x3b2a (correct), seq 1742982091, ack 337482637, win 4140, options [mss 1380,nop,wscale 0], length 0 0x0000: 4500 0030 5ff2 0000 f606 5d3b cefd b48a e..0_.....];.... 0x0010: 0a04 7a0e 1f44 36d1 67e3 cbcb 141d 938d ..z..d6.g....... 0x0020: 7012 102c 3b2a 0000 0204 0564 0103 0300 p..,;*.....d.... 2015-03-31 11:32:18.078622 ip (tos 0x0, ttl 64, id 30782, offset 0, flags [...
Read more