vb.net - Binding Navigator Navigation Mixed -

-

i have sdf database setup. problem comes when click movenext button. when keep moving through records goes in order: 23, 24, 25, 32, 26, 27, 28, 29, 30, 31, 33, 34... , on. supposed 25, 26, 27, 28, 29, 30, 31, 32.. , on right?

these numbers auto generated record id incremented every new record

when view records in datagridview order good. ideas how can resolve this?

update sorry late reply. have been trying create alternative route record navigation goes in order of id number. have created variable cur_navid current records id saved. every time next or previous buttons pressed next record in order displayed. thousands of record method tends bit vague. anyways heres main codes

here code for:

new record

 private sub newrecord()     if not isediting = true         enable_edit()         id += 1         me.bindingnavigatoraddnewitem.performclick()          cust_nametextbox.clear()         contacttextbox.clear()         remtextbox.clear()         gradetextbox.clear()         schooltextbox.clear()         v_numbertextbox.clear()         student_nametextbox.clear()          m7_idlabel1.text = string.format("{0:0000}", id)         date_pick.value = datetime.now          statuscombobox.selectedindex = 0         statuscombobox.text = "to done"         setstatus(statuscombobox.text)          cust_nametextbox.focus()     elseif isediting = true         dim di dialogresult = msgbox("do want save current record?", msgboxstyle.yesnocancel)         if di = windows.forms.dialogresult.yes or di = windows.forms.dialogresult.ok             saverecord()             newrecord()         elseif di = windows.forms.dialogresult.no             canceledit()         elseif di = windows.forms.dialogresult.cancel             exit sub         end if     end if end sub

save record

private sub saverecord()     try         '// customers multiple lists. easier entry          lastmember.cust_name = cust_nametextbox.text         lastmember.contact = contacttextbox.text         lastmember.grade = gradetextbox.text         lastmember.remks = remtextbox.text         cust_nametextbox.autocompletesource = autocompletesource.customsource         cust_nametextbox.autocompletemode = autocompletemode.suggestappend         dim mysource new autocompletestringcollection()         mysource.add(lastmember.cust_name)         cust_nametextbox.autocompletecustomsource = mysource          me.listsbindingnavigatorsaveitem.performclick()         disable_edit()          msgbox("record saved!", msgboxstyle.information)         'appwait(700)         'listsbindingsource.movelast()           cust_nametextbox.focus()     catch ex exception         ' msgbox("please fill in customer name, contact , grade boxes", msgboxstyle.information)         msgbox(ex.message, msgboxstyle.information)     end try end sub

binding navigator save item code

private sub listsbindingnavigatorsaveitem_click(sender system.object, e system.eventargs) handles listsbindingnavigatorsaveitem.click     me.validate()     me.listsbindingsource.endedit()     me.tableadaptermanager.updateall(me.bookslistdataset)     my.settings.id = id     my.settings.save() end sub

and in form load event

    ' ### load data 'bookslistdataset.lists' table.     me.liststableadapter.fill(me.bookslistdataset.lists)     me.bindingnavigatormovelastitem.performclick()       ' ### update counter if database changed     dim chek boolean = maxid(bookslistdataset.tables("lists")) = string.format("{0:0000}", my.settings.id.tostring)     if chek = false         msgbox("database has been updated. application restart compensate changes.", msgboxstyle.information)         ' my.settings.id = me.bookslistdataset.tables("lists").rows(bookslistdataset.tables("lists").rows.count - 1).item(0).tostring         my.settings.id = maxid(bookslistdataset.tables("lists"))         my.settings.save()         application.restart()     else     end if       ' ### take backup     if my.settings.backup_date = nothing         dim di dialogresult = msgbox("do want create backup database?", msgboxstyle.yesnocancel)         if di = windows.forms.dialogresult.yes or di = windows.forms.dialogresult.ok             '//backup database             if not my.computer.filesystem.fileexists(path.combine(application.startuppath.tostring, my.settings.id.tostring & "bookslist.sdf.bak"))                 my.computer.filesystem.copyfile(path.combine(application.startuppath.tostring, "bookslist.sdf"), path.combine(application.startuppath.tostring, my.settings.id.tostring & "bookslist.sdf.bak"))                 my.settings.backup_date = date.today                 my.settings.save()             end if          else             'do nothing         end if     elseif not my.settings.backup_date = date.today or my.computer.filesystem.fileexists(path.combine(application.startuppath.tostring, my.settings.id.tostring & "bookslist.sdf.bak")) = false         dim di2 dialogresult = msgbox("do want create todays backup database now?", msgboxstyle.yesnocancel)         if di2 = windows.forms.dialogresult.yes or di2 = windows.forms.dialogresult.ok             '//backup database             if not my.computer.filesystem.fileexists(path.combine(application.startuppath.tostring, my.settings.id.tostring & "bookslist.sdf.bak"))                 my.computer.filesystem.copyfile(path.combine(application.startuppath.tostring, "bookslist.sdf"), path.combine(application.startuppath.tostring, my.settings.id.tostring & "bookslist.sdf.bak"))                 my.settings.backup_date = date.today                 my.settings.save()             end if          else             'do nothing         end if     end if      ' ### load autopcomplete list     dim autocompletelist new system.windows.forms.autocompletestringcollection     using reader new system.io.streamreader("schools.acl")         while not reader.endofstream             autocompletelist.add(reader.readline())         end while     end using     schooltextbox.autocompletesource = autocompletesource.customsource     schooltextbox.autocompletemode = autocompletemode.suggest     schooltextbox.autocompletecustomsource = autocompletelist      ' ### focus next textbox on enter function part     textboxes.add(cust_nametextbox)     textboxes.add(contacttextbox)     textboxes.add(remtextbox)     textboxes.add(gradetextbox)     textboxes.add(schooltextbox)     textboxes.add(v_numbertextbox)     textboxes.add(student_nametextbox)      disable_edit()     cur_navid = maxid(me.bookslistdataset.tables("lists"))     me.listsbindingsource.position = cur_navid


Comments

Post a Comment

Popular posts from this blog

matlab - "Contour not rendered for non-finite ZData" -

-
i'm trying plot frequency characteristic equation using ezplot, matlab gives following warning, "contour not rendered non-finite zdata". have used command plot frequency equations warning , plot display empty , not change axis range well. can please help. appreciated. here's code i'm using. % transfer matrix case-i, thin rotor clear all; clc; ei = 1626; l = 0.15; m = 0.44108; = 2.178*10^-4; i_p = 2.205*10^-5; itr = 0.24; i_pr = 0.479; syms p n; f = [1 l*1i l^2/(2*ei)*1i l^3/(6*ei); 0 1 l/ei -l^2/(2*ei)*1i; 0 0 1 -l*1i; 0 0 0 l]; p = [ 1 0 0 0; 0 1 0 0; 0 -it*p^2+i_p*n*p 1 0; -m*p^2 0 0 1]; p_r = [1 0 0 0; 0 1 0 0; 0 -itr*p^2+i_pr*n*p 1 0; -m*p^2 0 0 1]; = f*p*f*p*f*p*f; b = p_r*f*p*f*p*f; r = a(1,2)/a(1,4); a12_p = 0; a22_p = a(2,2)-r*a(2,4); a32_p = a(3,2)-r*a(3,4); a42_p = a(4,2)-r*a(4,4); ap(2,2) = a22_p; ap(3,2) = a32_p; ap(4,2) = a42_p; ap(4,4) = 1; c = b*ap; m = [c(3,2) c(3,4); c(4,2) c(4,...
Read more

delphi - Indy UDP Read Contents of Adata -

-
i using indy udp server read string of data. however, not know how work adata parameter. can around converting binary using bytetobin function below , convert hex using bintohex1 . feel stupid , works slow. know how can directly results without 2 conversions? thanks!! here codes: procedure tform1.idudpserver1udpread(athread: tidudplistenerthread; const adata: tidbytes; abinding: tidsockethandle); var buf: tidbytes; buffer: string; data_received: string; begin if bytestostring(adata) <> 'hello' begin buffer := hextostring('00'); setlength(buf, length(buffer)); copytidstring(buffer, buf, 0); abinding.sendto(abinding.peerip, abinding.peerport, buf); data_received := bintohex1(bytetobin(adata[1]) + bytetobin(adata[2]) + bytetobin(adata[3]) + bytetobin(adata[4]) + bytetobin(adata[5]) + bytetobin(adata[6]) + bytetobin(adata[7]) + bytetobin(adata[8]) + bytetobin(adata[9]) + bytetobin(adata[10]) + bytetobin(adata[11...
Read more

javascript - Any ideas when Firefox is likely to implement lengthAdjust and textLength? -

-
any ideas when firefox implement lengthadjust andtextlength?..... working svg application. lengthadjust , textlength working fine in chrome not working in fire fox . <svg viewbox = "0 0 500 300" version = "1.1"> <defs> <path id="s3" d="m 10,90 q 100,15 200,70" /> </defs> <g> <text font-size = "20"> <textpath xlink:href="#s3" textlength="205"> short text</textpath> </text> <use xlink:href="#s3" fill="none" stroke="black" stroke-width="1"/> </g> </svg> this implemented in firefox text elements (not textpath or tspan) in case that's ok though can move attribute text element. <svg viewbox = "0 0 500 300" version = "1.1"> <defs> ...
Read more