vb6 - I can not get result every time I run data report . How can I fix this ? -


i want make report of daily income expense account. using data environment report , made date field group field. problem every time run program data appears , sometime it's showing blank. can't understand why happening , reason it? have bind table directly through data environment tool code here

private sub cmdok_click()

dim rsrojmelincome new adodb.recordset
dim rsrojmelexp new adodb.recordset
dim rstemprojmel new adodb.recordset
cn.execute "delete temprojmel"

rsrojmelincome.open " select * rojmel date1 between #" & format(dtpicker1.value, "mm/dd/yyyy") & "# , #" & format(dtpicker2.value, "mm/dd/yyyy") & "# , incexp = 'ytjtf'", cn, adopenkeyset, adlockoptimistic

rsrojmelexp.open " select * rojmel date1 between #" & format(dtpicker1.value, "mm/dd/yyyy") & "# , #" & format(dtpicker2.value, "mm/dd/yyyy") & "# , incexp = 'sjtf'", cn, adopenkeyset, adlockoptimistic

set rstemprojmel = new adodb.recordset

rstemprojmel.open "select * temprojmel", cn, adopenkeyset, adlockoptimistic

if rsrojmelincome.recordcount >= 1 then

for = 1 rsrojmelincome.recordcount rstemprojmel.addnew rstemprojmel.fields("id") = rstemprojmel.fields("incvigat") = rsrojmelincome.fields("vigat") rstemprojmel.fields("date1") = rsrojmelincome.fields("date1") rstemprojmel.fields("incamount") = rsrojmelincome.fields("amount") rstemprojmel.update
rsrojmelincome.movenext
next i
end if

if rsrojmelexp.recordcount >= 1

for j = 1 rsrojmelexp.recordcount rstemprojmel.addnew rstemprojmel.fields("id") = j rstemprojmel.fields("expvigat") = rsrojmelexp.fields("vigat") rstemprojmel.fields("date1") = rsrojmelexp.fields("date1") rstemprojmel.fields("expamount") = rsrojmelexp.fields("amount") rstemprojmel.update
rsrojmelexp.movenext
next j
end if

if dataenvironment1.rscommand1_grouping.state = 0

dataenvironment1.rscommand1_grouping.open " shape {select * temprojmel} command1 compute command1, sum(command1.'incamount') aggregate1, sum(command1.'expamount') aggregate2,calc (aggregate1-aggregate2) netprof1 'date1' ", dataenvironment1.connection1, adopenkeyset, adlockoptimistic

end if

rptrojmel.sections("section7").controls.item("text1").datafield = dataenvironment1.rscommand1_grouping.fields("netprof1").name

rptrojmel.sections("section7").controls.item("text2").datafield = dataenvironment1.rscommand1_grouping.fields("aggregate1").name

rptrojmel.sections("section4").controls.item("lbldate1").caption = dtpicker1.value

rptrojmel.sections("section4").controls.item("lbldate2").caption = dtpicker2.value

rptrojmel.refresh
dataenvironment1.rscommand1_grouping.requery
rptrojmel.refresh
end sub

instead of 

if dataenvironment1.rscommand1_grouping.state = 0    dataenvironment1.rscommand1_grouping.open " shape {select *      temprojmel} command1 compute command1, sum(command1.'incamount') aggregate1, sum(command1.'expamount') aggregate2,calc (aggregate1-aggregate2) netprof1 'date1' ", dataenvironment1.connection1, adopenkeyset, adlockoptimistic  end if

try using

if dataenvironment1.rscommand1_grouping.state = adstateopen    dataenvironment1.rscommand1_grouping.close  end if  dataenvironment1.rscommand1_grouping.open " shape {select *      temprojmel} command1 compute command1, sum(command1.'incamount') aggregate1, sum(command1.'expamount') aggregate2,calc (aggregate1-aggregate2) netprof1 'date1' ", dataenvironment1.connection1, adopenkeyset, adlockoptimistic

Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more