a********t
发帖数: 1810 | | N***M
发帖数: 4295 | | c*h
发帖数: 33018 | 3 要是C#/.NET编程就好啦，闭着眼睛。
【在 a********t 的大作中提到】
: 有报酬
: 目前一个PROJECT要用到VB
| N***M
发帖数: 4295 | 4 闭着眼睛都能写？
【在 c*h 的大作中提到】
: 要是C#/.NET编程就好啦，闭着眼睛。
| k****i
发帖数: 1072 | 5 什么报酬？
【在 a********t 的大作中提到】
: 有报酬
: 目前一个PROJECT要用到VB
| a********t
发帖数: 1810 | 6 给钱
【在 k****i 的大作中提到】
: 什么报酬？
| m*******r
发帖数: 8950 | 7 是你给钱, 还是你公司给钱? 要是你公司给钱, 我可以问问我家LD...
【在 a********t 的大作中提到】
: 给钱
| x**n
发帖数: 12542 | 8 你们家LD啥都会呀？
【在 m*******r 的大作中提到】
: 是你给钱, 还是你公司给钱? 要是你公司给钱, 我可以问问我家LD...
| m*******r
发帖数: 8950 | 9 我家LD是干VB和COLD FUSION出身, 后来改的JAVA...
【在 x**n 的大作中提到】
: 你们家LD啥都会呀？
| x**n
发帖数: 12542 | 10 明白。。。 早听说是大牛了。。
【在 m*******r 的大作中提到】
: 我家LD是干VB和COLD FUSION出身, 后来改的JAVA...
| | | a********t
发帖数: 1810 | | m*******r
发帖数: 8950 | 12 问了LD... LD的建议是, 你去买一本"LEARN VB IN 24 HOURS"的书, 看一个周末, 就
差不多了... 她当年就是怎么开始的...
【在 a********t 的大作中提到】
: 我给
| m*******r
发帖数: 8950 | 13 哈哈, 在我眼里是大牛... 在别人眼里, 估计也就是一码农... HOHO...
【在 x**n 的大作中提到】
: 明白。。。 早听说是大牛了。。
| c*******n
发帖数: 679 | 14 啊，给公司干活儿，还得自己掏钱？
【在 a********t 的大作中提到】
: 我给
| W*******e
发帖数: 1268 | 15 accountant很多都是用VBA吧，或者是VBScript? VB现在很少有人用了
【在 a********t 的大作中提到】
: 有报酬
: 目前一个PROJECT要用到VB
| i****y
发帖数: 5184 | 16 我会
★ 发自iPhone App: ChineseWeb 7.3
【在 a********t 的大作中提到】
: 有报酬
: 目前一个PROJECT要用到VB
| c*h
发帖数: 33018 | 17 BSO还是要挣小钱呀。
【在 i****y 的大作中提到】
: 我会
:
: ★ 发自iPhone App: ChineseWeb 7.3
| a********t
发帖数: 1810 | 18 给我讲讲
【在 i****y 的大作中提到】
: 我会
:
: ★ 发自iPhone App: ChineseWeb 7.3
| w*******i
发帖数: 477 | | b*****n
发帖数: 10665 | 20 不会。。。
【在 a********t 的大作中提到】
: 有报酬
: 目前一个PROJECT要用到VB
| | | c*h
发帖数: 33018 | 21 这东西怎么讲？
【在 a********t 的大作中提到】
: 给我讲讲
| a********t
发帖数: 1810 | 22 帮我看看代码。讲解一下
【在 c*h 的大作中提到】
: 这东西怎么讲？
| c*******n
发帖数: 679 | 23 bso you are young :)
【在 w*******i 的大作中提到】
: 10年前上大学时我会，而且很好，现在全忘完了
| b*****n
发帖数: 10665 | 24 那你现在做啥阿？
【在 w*******i 的大作中提到】
: 10年前上大学时我会，而且很好，现在全忘完了
| m*******r
发帖数: 8950 | 25 你这活，轻易每人敢接，主要是时间很难估计。要是公司出钱好说，你自己出钱，没法
算的。
很久以前，在我上学的时候，也是一个读会计专业的朋友的朋友，说是要帮她优化一下
程序，说是基本已经完成了，只要一两个小时就可以了。我没仔细想就同意了。可一看
要求和她写的程序，完全是错的。整整用了一个通宵才写完，完全重写一遍。那时候我
也是一学期上４门课，时间紧得不得了。真是一边给人家写程序，一边在心里抽自己大
嘴巴子。
所以，还是自己找本书，啃一啃，也就几天时间。
【在 a********t 的大作中提到】
: 帮我看看代码。讲解一下
| c*h
发帖数: 33018 | 26 这样还是没有用的。
最好的办法是抄，抄类似的，抄Sample。
【在 a********t 的大作中提到】
: 帮我看看代码。讲解一下
| a********t
发帖数: 1810 | 27 不是要写代玛.我不写代玛. 这个VB软件是别人编的,代玛也是别人写的.运行很好.它产
生的数和我用EXCEL手算出来的要MATCH. 现在不MATCH. 99% 可能是我的EXCEL 算出来
的是错的..但就算我算错了, 我也想知道为啥我错了,想看看软件是怎么算的.只不过现
在我对其中一段看不懂..想找个懂的人给我看看讲一讲.
不允许改这个软件的代码. 当然最好的方试是找写这个的人讲,但…以经是不可能的了
….
如果VB CODE 真的是找一本书,啃几天就能看懂它.那我觉得一个有5 + EXP 年的VB
PROGRAMMER读懂这段CODE 应该不会用超过一小时.
我付的一小时的钱要远远小于我啃几天书的成本
【在 m*******r 的大作中提到】
: 你这活，轻易每人敢接，主要是时间很难估计。要是公司出钱好说，你自己出钱，没法
: 算的。
: 很久以前，在我上学的时候，也是一个读会计专业的朋友的朋友，说是要帮她优化一下
: 程序，说是基本已经完成了，只要一两个小时就可以了。我没仔细想就同意了。可一看
: 要求和她写的程序，完全是错的。整整用了一个通宵才写完，完全重写一遍。那时候我
: 也是一学期上４门课，时间紧得不得了。真是一边给人家写程序，一边在心里抽自己大
: 嘴巴子。
: 所以，还是自己找本书，啃一啃，也就几天时间。
| W*******e
发帖数: 1268 | 28 读程序的过程是一个对算法reverse-engineering的过程
很多时候和编程语言无关
读别人程序通常比自己编同样的程序难，特别是读没有经历过编程训练的人写的程序
VB的语法问题Google一下大部分都能很快解决
【在 a********t 的大作中提到】
: 不是要写代玛.我不写代玛. 这个VB软件是别人编的,代玛也是别人写的.运行很好.它产
: 生的数和我用EXCEL手算出来的要MATCH. 现在不MATCH. 99% 可能是我的EXCEL 算出来
: 的是错的..但就算我算错了, 我也想知道为啥我错了,想看看软件是怎么算的.只不过现
: 在我对其中一段看不懂..想找个懂的人给我看看讲一讲.
: 不允许改这个软件的代码. 当然最好的方试是找写这个的人讲,但…以经是不可能的了
: ….
: 如果VB CODE 真的是找一本书,啃几天就能看懂它.那我觉得一个有5 + EXP 年的VB
: PROGRAMMER读懂这段CODE 应该不会用超过一小时.
: 我付的一小时的钱要远远小于我啃几天书的成本
| vn
发帖数: 6191 | 29 你把code贴上来看看
神马版本的vb？
【在 a********t 的大作中提到】
: 不是要写代玛.我不写代玛. 这个VB软件是别人编的,代玛也是别人写的.运行很好.它产
: 生的数和我用EXCEL手算出来的要MATCH. 现在不MATCH. 99% 可能是我的EXCEL 算出来
: 的是错的..但就算我算错了, 我也想知道为啥我错了,想看看软件是怎么算的.只不过现
: 在我对其中一段看不懂..想找个懂的人给我看看讲一讲.
: 不允许改这个软件的代码. 当然最好的方试是找写这个的人讲,但…以经是不可能的了
: ….
: 如果VB CODE 真的是找一本书,啃几天就能看懂它.那我觉得一个有5 + EXP 年的VB
: PROGRAMMER读懂这段CODE 应该不会用超过一小时.
: 我付的一小时的钱要远远小于我啃几天书的成本
| m*******r
发帖数: 8950 | 30 私下还行, 公开的, 如果被公司知道了, 是要有TROUBLE的...
【在 vn 的大作中提到】
: 你把code贴上来看看
: 神马版本的vb？
| | | vn
发帖数: 6191 | 31 那就说说这个代码多长？如果是。net 2010里的我可以帮忙调调看。。。
【在 m*******r 的大作中提到】
: 私下还行, 公开的, 如果被公司知道了, 是要有TROUBLE的...
| a********t
发帖数: 1810 | 32 这一个累加公试总是错
If NHStatus(i) = 1 Then 'If elgibile, include in average calculation
MDS(nHomesA, j) = MDS(nHomesA, j) + MDS(i, j) * TotDays(i)
MDS(i,j) 是两列200行的数.
表是这样的:
第一列是ID, 第二列是状态(NHStatus(i)),第三列是MDS(i,1),第四列是MDS(i,2),第五
列 总天数(TotDays(i))
我的公试是:如过状态=1,那么这一行的MDS(i,1)*TotDays(i), MDS(i,2)* TotDays(i)
最后,累加这些值:MD (1,1)*TotDays(1)+MDS(2,1)*TOTDAYS(2)+....MDS(200,1)*
TOTDAYS(200)=MDS(NhomesA,1)
MDS(1,2)*TotDays(1)+MDS(2,2)*TOTDAYS(2)+....MDS(200,2)*TOTDAYS(200)=MDS(
NhomesA,2)
现在问题是Mds(nHomesA,1),Mds(NhomesA,2)总是分别多加出一行的Mds(1,1)*Totdays(
1), Mds(1,2)*Totdays(1).就是加了两遍 | m*******r
发帖数: 8950 | 33 当i=1 的时候, NHStatus(i) = 1, "MDS(nHomesA, j) = MDS(nHomesA, j) + MDS(i, j
) * TotDays(i)" 等号右边的"MDS(nHomesA, j)"是不是"MDS(1,1)"? 从而导致了多了
MDS(1,1)?
同理, 对另一列...
【在 a********t 的大作中提到】
: 这一个累加公试总是错
: If NHStatus(i) = 1 Then 'If elgibile, include in average calculation
: MDS(nHomesA, j) = MDS(nHomesA, j) + MDS(i, j) * TotDays(i)
: MDS(i,j) 是两列200行的数.
: 表是这样的:
: 第一列是ID, 第二列是状态(NHStatus(i)),第三列是MDS(i,1),第四列是MDS(i,2),第五
: 列 总天数(TotDays(i))
: 我的公试是:如过状态=1,那么这一行的MDS(i,1)*TotDays(i), MDS(i,2)* TotDays(i)
: 最后,累加这些值:MD (1,1)*TotDays(1)+MDS(2,1)*TOTDAYS(2)+....MDS(200,1)*
: TOTDAYS(200)=MDS(NhomesA,1)
| vn
发帖数: 6191 | 34 你需要把i j的变化写出来才知道为啥多加了
其实如果你自己机器能跑code，用debug mode设breakpoint是比较容易的方法，比我们
读要方便的多。。。
【在 a********t 的大作中提到】
: 这一个累加公试总是错
: If NHStatus(i) = 1 Then 'If elgibile, include in average calculation
: MDS(nHomesA, j) = MDS(nHomesA, j) + MDS(i, j) * TotDays(i)
: MDS(i,j) 是两列200行的数.
: 表是这样的:
: 第一列是ID, 第二列是状态(NHStatus(i)),第三列是MDS(i,1),第四列是MDS(i,2),第五
: 列 总天数(TotDays(i))
: 我的公试是:如过状态=1,那么这一行的MDS(i,1)*TotDays(i), MDS(i,2)* TotDays(i)
: 最后,累加这些值:MD (1,1)*TotDays(1)+MDS(2,1)*TOTDAYS(2)+....MDS(200,1)*
: TOTDAYS(200)=MDS(NhomesA,1)
| m*******r
发帖数: 8950 | 35 我估计就是等号右边的"MDS(nHomesA, j)"的INITIAL VALUE是"MDS(1,1)"...
要是对了, 又有收入了... HOHO...
【在 vn 的大作中提到】
: 你需要把i j的变化写出来才知道为啥多加了
: 其实如果你自己机器能跑code，用debug mode设breakpoint是比较容易的方法，比我们
: 读要方便的多。。。
| vn
发帖数: 6191 | 36 可是结果不象“Mds(1,1)*Totdays(1), Mds(1,2)*Totdays(1).就是加了两遍 ”。。。
不过你一说 可能是和初始条件有关系的 这个nHomesA是啥呀？
还有lz说的到底是程序算的不对 还是自己算的不对啊？
无论如何 这段code不难的 这个钱不难赚 hohoho
【在 m*******r 的大作中提到】
: 我估计就是等号右边的"MDS(nHomesA, j)"的INITIAL VALUE是"MDS(1,1)"...
: 要是对了, 又有收入了... HOHO...
| vn
发帖数: 6191 | | a********t
发帖数: 1810 | 38 当i=1时.等号右的"MDS(nHomesA, j)"是MDS(1,1)*Totdays(1). MDS(1,1)=100,
Totdays(1)=44252,所以MDS(nHomesA, j)"=4425200
i的行数是1 to nHomes(200行), NhomesA=Nhomes+2, 就是第202行
谢谢回复
最后这第202行的数是前200行的乘积累加(在NHStatus(i) = 1的情况下),但最后的值总
是要把4425200再多加一遍.
我用MSGBOX 去CHECK 每一行累加的值,到最后一行,VB的值和我EXCEL算的值都MATCH,下
一行没有数了.VB就该STOP 了,可它还给我多蹦出个数,这一个数和最后一行的累加值的
差是4425200. 我就猜可能把第一行又加了一遍?
【 在 mdrealtor (md_realtor) 的大作中提到: 】
j
j | m*******r
发帖数: 8950 | 39 "现在问题是Mds(nHomesA,1),Mds(NhomesA,2)总是分别多加出一行的Mds(1,1)*Totdays(
1), Mds(1,2)*Totdays(1).就是加了两遍"
只有在一开始的时候, Totdays(i)才是1, Mds(nHomesA,1)的INIITIAL VALUE一旦是MDS
(1,1)就说得通了...
越想越觉得对, 发钱的时候,就咱俩分啊...
【在 vn 的大作中提到】
: 可是结果不象“Mds(1,1)*Totdays(1), Mds(1,2)*Totdays(1).就是加了两遍 ”。。。
: 不过你一说 可能是和初始条件有关系的 这个nHomesA是啥呀？
: 还有lz说的到底是程序算的不对 还是自己算的不对啊？
: 无论如何 这段code不难的 这个钱不难赚 hohoho
| vn
发帖数: 6191 | 40 粗看觉得这个有问题
“i的行数是1 to nHomes(200行), NhomesA=Nhomes+2, 就是第202行”
realtor觉得呢？
nm 单看命名 这个程序写的够呛啊
【在 a********t 的大作中提到】
: 当i=1时.等号右的"MDS(nHomesA, j)"是MDS(1,1)*Totdays(1). MDS(1,1)=100,
: Totdays(1)=44252,所以MDS(nHomesA, j)"=4425200
: i的行数是1 to nHomes(200行), NhomesA=Nhomes+2, 就是第202行
: 谢谢回复
: 最后这第202行的数是前200行的乘积累加(在NHStatus(i) = 1的情况下),但最后的值总
: 是要把4425200再多加一遍.
: 我用MSGBOX 去CHECK 每一行累加的值,到最后一行,VB的值和我EXCEL算的值都MATCH,下
: 一行没有数了.VB就该STOP 了,可它还给我多蹦出个数,这一个数和最后一行的累加值的
: 差是4425200. 我就猜可能把第一行又加了一遍?
: 【 在 mdrealtor (md_realtor) 的大作中提到: 】
| | | vn
发帖数: 6191 | 41 要是只有一个包子怎么分？lz先说说给多少啊 这个问题我觉得肯定能搞定的 呵呵
Totdays(
MDS
【在 m*******r 的大作中提到】
: "现在问题是Mds(nHomesA,1),Mds(NhomesA,2)总是分别多加出一行的Mds(1,1)*Totdays(
: 1), Mds(1,2)*Totdays(1).就是加了两遍"
: 只有在一开始的时候, Totdays(i)才是1, Mds(nHomesA,1)的INIITIAL VALUE一旦是MDS
: (1,1)就说得通了...
: 越想越觉得对, 发钱的时候,就咱俩分啊...
| m*******r
发帖数: 8950 | 42 那你看看循环加的LOOP的条件, 是不是应该是"<", 却写成了"<=". 这样, 导致LOOP最
后多出一次加, 但由于ARRAY已经到头了, VB就转回去了, 把第一给又加了一次...
另外, VB的ARRAY 的INDEX 是从1开始的, 还是从0开始的? 这也很关键...
【在 a********t 的大作中提到】
: 当i=1时.等号右的"MDS(nHomesA, j)"是MDS(1,1)*Totdays(1). MDS(1,1)=100,
: Totdays(1)=44252,所以MDS(nHomesA, j)"=4425200
: i的行数是1 to nHomes(200行), NhomesA=Nhomes+2, 就是第202行
: 谢谢回复
: 最后这第202行的数是前200行的乘积累加(在NHStatus(i) = 1的情况下),但最后的值总
: 是要把4425200再多加一遍.
: 我用MSGBOX 去CHECK 每一行累加的值,到最后一行,VB的值和我EXCEL算的值都MATCH,下
: 一行没有数了.VB就该STOP 了,可它还给我多蹦出个数,这一个数和最后一行的累加值的
: 差是4425200. 我就猜可能把第一行又加了一遍?
: 【 在 mdrealtor (md_realtor) 的大作中提到: 】
| a********t
发帖数: 1810 | 43 09-11年,一直用这个VB 算,出来的数和EXCEL 手算的一样.
可12年...就不一样了.....
有可能那个 VB PROGRAMMER 把CODE 做了些改动,但什么改动我不知道,他走了,我才来
公司.我只被TAUGHT 了EXCEL 的算法.现在值不MATCH.
但我用这个CODE 运行了去年的DATA,值是MATCH的.所以改动的可能性不大.
【在 vn 的大作中提到】
: 可是结果不象“Mds(1,1)*Totdays(1), Mds(1,2)*Totdays(1).就是加了两遍 ”。。。
: 不过你一说 可能是和初始条件有关系的 这个nHomesA是啥呀？
: 还有lz说的到底是程序算的不对 还是自己算的不对啊？
: 无论如何 这段code不难的 这个钱不难赚 hohoho
| vn
发帖数: 6191 | 44 你这回有戏 我一看就觉得很有道理
数组越界拉 怎么加到202行是神马东西？
另外vb应该是从1开始的
我们要分啊
【在 m*******r 的大作中提到】
: 那你看看循环加的LOOP的条件, 是不是应该是"<", 却写成了"<=". 这样, 导致LOOP最
: 后多出一次加, 但由于ARRAY已经到头了, VB就转回去了, 把第一给又加了一次...
: 另外, VB的ARRAY 的INDEX 是从1开始的, 还是从0开始的? 这也很关键...
| T*R
发帖数: 25894 | 45 中间是简单加法，都不重要，要看你的循环是怎么设定的。 | m*******r
发帖数: 8950 | 46 不知道... 感觉LZ得再多放出些CODE来... 例如, 上一层的LOOP... 我对VB是一窍
不通, 纯用算法来考虑...
【在 vn 的大作中提到】
: 粗看觉得这个有问题
: “i的行数是1 to nHomes(200行), NhomesA=Nhomes+2, 就是第202行”
: realtor觉得呢？
: nm 单看命名 这个程序写的够呛啊
| vn
发帖数: 6191 | 47 你用excel算去年数据是match的吗？
【在 a********t 的大作中提到】
: 09-11年,一直用这个VB 算,出来的数和EXCEL 手算的一样.
: 可12年...就不一样了.....
: 有可能那个 VB PROGRAMMER 把CODE 做了些改动,但什么改动我不知道,他走了,我才来
: 公司.我只被TAUGHT 了EXCEL 的算法.现在值不MATCH.
: 但我用这个CODE 运行了去年的DATA,值是MATCH的.所以改动的可能性不大.
| m*******r
发帖数: 8950 | 48 没问题... HOHO...
【在 vn 的大作中提到】
: 你这回有戏 我一看就觉得很有道理
: 数组越界拉 怎么加到202行是神马东西？
: 另外vb应该是从1开始的
: 我们要分啊
| m*******r
发帖数: 8950 | 49 等我和VN 技穷了你再上... 否则, 没法分...
【在 T*R 的大作中提到】
: 中间是简单加法，都不重要，要看你的循环是怎么设定的。
| a********t
发帖数: 1810 | 50 I 从1开始的. 一般都是从0开始.
我知道肯定是LOOP有问题.
这一公试全部CODE
'Read MDS Scores
For j = 1 To 6: vDenominator(j) = 0: Next
msg$ = FY + "MDSScores.csv"
Open (fPath$ + "P4P" + FY + "MDSscores.csv") For Input As #1
For j = 1 To 7: Input #1, xx$: Next
While Not EOF(1)
Input #1, xx$: For j = 1 To 6: Input #1, L$(j): Next
PIN(0, 1) = Val(xx$)
For i = 1 To nHomes
If PIN(0, 1) = PIN(i, 1) Or PIN(0, 1) = PIN(i, 2) Then Exit For
Next
For j = 1 To 6
If L$(j) <> "" Then MDS(i, j) = 100 - Val(L$(j))
If NHStatus(i) = 1 Then 'If elgibile, include in average
calculation
MDS(nHomesA, j) = MDS(nHomesA, j) + MDS(i, j) * TotDays(i)
If MDS(i, j) > 0 Then vDenominator(j) = vDenominator(j) +
TotDays(i)
If MDS(i, j) > vMax(j + 9) Then vMax(j + 9) = MDS(i, j)
End If
Next
Wend
那个vDenominator(j) = vDenominator(j) + TotDays(i)
最后也是多出了TOTDAYS(1)=44252
【在 m*******r 的大作中提到】
: 那你看看循环加的LOOP的条件, 是不是应该是"<", 却写成了"<=". 这样, 导致LOOP最
: 后多出一次加, 但由于ARRAY已经到头了, VB就转回去了, 把第一给又加了一次...
: 另外, VB的ARRAY 的INDEX 是从1开始的, 还是从0开始的? 这也很关键...
| | | T*R
发帖数: 25894 | 51 我不跟你们抢包子，我只要cash部分。
【在 m*******r 的大作中提到】
: 等我和VN 技穷了你再上... 否则, 没法分...
| a********t
发帖数: 1810 | | T*R
发帖数: 25894 | 53 你有13个包子。。
【在 a********t 的大作中提到】
: 怎么给包子呀,我有吗?全给你们了.
| a********t
发帖数: 1810 | | a********t
发帖数: 1810 | 55 MATCH
11年,12年都MATCH
【在 vn 的大作中提到】
: 你用excel算去年数据是match的吗？
| m*******r
发帖数: 8950 | 56 你确定MDS(nHomesA, j)没有越界? INITIAL VALUE是0?
【在 a********t 的大作中提到】
: I 从1开始的. 一般都是从0开始.
: 我知道肯定是LOOP有问题.
: 这一公试全部CODE
: 'Read MDS Scores
: For j = 1 To 6: vDenominator(j) = 0: Next
: msg$ = FY + "MDSScores.csv"
: Open (fPath$ + "P4P" + FY + "MDSscores.csv") For Input As #1
: For j = 1 To 7: Input #1, xx$: Next
: While Not EOF(1)
: Input #1, xx$: For j = 1 To 6: Input #1, L$(j): Next
| vn
发帖数: 6191 | 57 wa 你的吉祥数字～
【在 T*R 的大作中提到】
: 你有13个包子。。
| vn
发帖数: 6191 | 58 这个code里面 nHomesA 有变化吗？
【在 m*******r 的大作中提到】
: 你确定MDS(nHomesA, j)没有越界? INITIAL VALUE是0?
| m*******r
发帖数: 8950 | 59 另外, 你在 TRACE "For i = 1 To nHomes"的时候, 当i = 200(nHomes), 是最后一个
LOOP吗?
【在 m*******r 的大作中提到】
: 你确定MDS(nHomesA, j)没有越界? INITIAL VALUE是0?
| vn
发帖数: 6191 | 60 放心 3总是名不正言不顺的。。。 搞不过我们滴
【在 m*******r 的大作中提到】
: 等我和VN 技穷了你再上... 否则, 没法分...
| | | m*******r
发帖数: 8950 | 61 我们要的是$... 你可以用包子去喂版三... HOHO...
【在 a********t 的大作中提到】
: 怎么给包子呀,我有吗?全给你们了.
| vn
发帖数: 6191 | 62 你们太贪了 包子给我好了～～
【在 m*******r 的大作中提到】
: 我们要的是$... 你可以用包子去喂版三... HOHO...
| m*******r
发帖数: 8950 | 63 好吧... 不要$了... 至少一顿饭吧... 我的人品还是不错的...
【在 vn 的大作中提到】
: 你们太贪了 包子给我好了～～
| a********t
发帖数: 1810 | 64 有的.
我说的详细些
我有俩表: 表1=MDS, 表2= MASTER
表MDS 里第一列是ID(在VB里用PIN(0,1)表达). 2-7列是参数L$(J)
表MASTER里第一,二列都是ID,P(I,1),P(I,2)表达. 其它的列也是参数,包括 STATUS 和
TOTDAYS这两个.这个表的行数是NHOMES, 它是每年都变的.
VB的目地是把MDS 里的每一ID 都找到在MASTER 文件里的对应的STATUS,TOTDAYS这两个
参数.最后做计算. 最后计算出的值MDS(NHOMESA,J).放在新表里MHOMES+2 那一列
我现在说的值是在L$(2)这一列,, 但L$(J)都是不MATCH的.
【在 vn 的大作中提到】
: 这个code里面 nHomesA 有变化吗？
| a********t
发帖数: 1810 | 65 我愿意给钱,我觉得你们在我的VB上运行一下,一小时肯定就搞定的.这么网上来回说,一
天也弄不明白.
多少钱,说个数.我看看可以就接受
虽说这么交流能学到不少知识,但真的没空.你们也都是大忙人.
【在 m*******r 的大作中提到】
: 我们要的是$... 你可以用包子去喂版三... HOHO...
| a********t
发帖数: 1810 | 66 不是,又蹦出一个数(我觉得把第一个值又加了一遍).这就是我糊涂的地方
【在 m*******r 的大作中提到】
: 另外, 你在 TRACE "For i = 1 To nHomes"的时候, 当i = 200(nHomes), 是最后一个
: LOOP吗?
| m*******r
发帖数: 8950 | 67 也就是说, nHomesA = MHOMES+2. MHOMES是个变量?
还有, "最后计算出的值MDS(NHOMESA,J).放在新表里MHOMES+2 那一列" 新表里MHOMES
+2 那一列之前, 都是什么?
【在 vn 的大作中提到】
: 这个code里面 nHomesA 有变化吗？
| vn
发帖数: 6191 | 68 首先 你的表不是按i循环的 是那个While Not EOF(1) 在控制主循环
其次 这2个表行数都是nhomes对吗？就是说2个表其实可以拼一起？ | vn
发帖数: 6191 | 69 我才看出来 nhomes和nhomea应该是常量 我误导你了。。。
第二句 我觉得他应该是说nhomes＋2那一行 不是“列” 但是“新表”是哪个我有点不
清楚
MHOMES
【在 m*******r 的大作中提到】
: 也就是说, nHomesA = MHOMES+2. MHOMES是个变量?
: 还有, "最后计算出的值MDS(NHOMESA,J).放在新表里MHOMES+2 那一列" 新表里MHOMES
: +2 那一列之前, 都是什么?
| m*******r
发帖数: 8950 | 70 那又蹦出一个数的时候, i是多少?
我感觉是你的某个列表越界了...
【在 a********t 的大作中提到】
: 不是,又蹦出一个数(我觉得把第一个值又加了一遍).这就是我糊涂的地方
| | | vn
发帖数: 6191 | 71 这时候 i 的循环已经结束了 是外层的while循环控制的
【在 m*******r 的大作中提到】
: 那又蹦出一个数的时候, i是多少?
: 我感觉是你的某个列表越界了...
| a********t
发帖数: 1810 | 72 是的,是表MASTER 里的行数,每一年这个行数会变的.ID 增多或减少啥的.
新表里MHOMES +2 那一列之前就是把两表合并后,包括所有参数的表.行数和MASTER表
的行数是一样的=NHOMES. 最后这个新表要从VB里OUTPUT 出来.
NHOMES+1这一行是别的计算值.
MHOMES
【在 m*******r 的大作中提到】
: 也就是说, nHomesA = MHOMES+2. MHOMES是个变量?
: 还有, "最后计算出的值MDS(NHOMESA,J).放在新表里MHOMES+2 那一列" 新表里MHOMES
: +2 那一列之前, 都是什么?
| W*******e
发帖数: 1268 | 73 循环中加行主任的WriteLine输出大法检查吧
Console.WriteLine("value = {d}.", value) | m*******r
发帖数: 8950 | 74 嗯, 对... LZ检查一下, 最后蹦出来数的时候, i 是不是 1... 如果是, 就解释清楚
了...
【在 vn 的大作中提到】
: 这时候 i 的循环已经结束了 是外层的while循环控制的
| c*******n
发帖数: 679 | 75 LZ你单步调试一下，就很清楚了。
【在 a********t 的大作中提到】
: 是的,是表MASTER 里的行数,每一年这个行数会变的.ID 增多或减少啥的.
: 新表里MHOMES +2 那一列之前就是把两表合并后,包括所有参数的表.行数和MASTER表
: 的行数是一样的=NHOMES. 最后这个新表要从VB里OUTPUT 出来.
: NHOMES+1这一行是别的计算值.
:
: MHOMES
| m*******r
发帖数: 8950 | 76 是不是就是C里的printf? HOHO...
【在 W*******e 的大作中提到】
: 循环中加行主任的WriteLine输出大法检查吧
: Console.WriteLine("value = {d}.", value)
| W*******e
发帖数: 1268 | 77 主任做了个.Net入门讲座，其中的精华就是这行代码
【在 m*******r 的大作中提到】
: 是不是就是C里的printf? HOHO...
| c*******n
发帖数: 679 | 78 debug.print in vb6
【在 m*******r 的大作中提到】
: 是不是就是C里的printf? HOHO...
| a********t
发帖数: 1810 | 79 这。。怎么看呢？
我是用MSGBOX看的数
【在 m*******r 的大作中提到】
: 嗯, 对... LZ检查一下, 最后蹦出来数的时候, i 是不是 1... 如果是, 就解释清楚
: 了...
| a********t
发帖数: 1810 | 80 发现了一个问题,PIN(0,1) 在MDS 表里应该是210行.但我TRACK 它发现最后一个数以后
,又蹦出个0, 怎么回事? | | | y****n
发帖数: 23 | 81 学会计还要用VB ？
额 LZ 主要来做什么project 啊？ | m*******r
发帖数: 8950 | 82 你在TRACE的时候, 应该有方法看每次LOOP的时候i的值. 你再CREATE 一个MSGBOX?
【在 a********t 的大作中提到】
: 这。。怎么看呢？
: 我是用MSGBOX看的数
|
|
