7,763
社区成员
发帖
与我相关
我的任务
分享我不会，你会吗??？关于动态数组
dim k,t,l as string
dim arr() as string
...
k = adors.RecordCount
ReDim arr(t, l) As String '动态数组，二维
For t = 1 To k
For l = 1 To rest(t) 'rest(t)是前面程序中定义的动态数组,放的数值
arr(t, l) = Format(adors.Fields(count(l) + 1), "yyyy-mm-dd")
Next l
Next t
运行时总是arr(t, l) = Format(adors.Fields(count(l) + 1), "yyyy-mm-dd")
中的arr(t,l)下标越界。
dim arr() as string
...
k = adors.RecordCount
ReDim arr(t, l) As String '动态数组，二维
For t = 1 To k
For l = 1 To rest(t) 'rest(t)是前面程序中定义的动态数组,放的数值
arr(t, l) = Format(adors.Fields(count(l) + 1), "yyyy-mm-dd")
Next l
Next t
运行时总是arr(t, l) = Format(adors.Fields(count(l) + 1), "yyyy-mm-dd")
中的arr(t,l)下标越界。
...全文
请发表友善的回复…
发表回复
wfwater 2003-03-11
- 打赏
- 举报
改成arr(t, l) = Format(adors.Fields(count(t) + l), "yyyy-mm-dd") 改成count(t)+l有了一丝希望。
wfwater 2003-03-11
- 打赏
- 举报
好象这里是出了点问题。
其实我这是做分期交款，催交款出现的问题。两个表，table1是交款记录明细，即每次交款的详细记录，table2存放所有分期交款房间签合同定好的交款期数和对应的交款时间。
我的想法到是很直接,从table2中取出所有的房间，在table1中能查找出相对应的所有交款记录，也得到了某个房间的交款次数。然后 未交款次数=总的交款次数-该房间已经交款次数
把未交款的那几次时间取出来和系统当前时间做比较。关键在于把还未交过款的那几次的时间得到。
不知大家有何更好的办法？我是晕了一个晚上了。
其实我这是做分期交款，催交款出现的问题。两个表，table1是交款记录明细，即每次交款的详细记录，table2存放所有分期交款房间签合同定好的交款期数和对应的交款时间。
我的想法到是很直接,从table2中取出所有的房间，在table1中能查找出相对应的所有交款记录，也得到了某个房间的交款次数。然后 未交款次数=总的交款次数-该房间已经交款次数
把未交款的那几次时间取出来和系统当前时间做比较。关键在于把还未交过款的那几次的时间得到。
不知大家有何更好的办法？我是晕了一个晚上了。
smartluwei 2003-03-11
- 打赏
- 举报
count(l) -1吧
smartluwei 2003-03-11
- 打赏
- 举报
count(l) + 1 有问题啊。
northwolves 2003-03-11
- 打赏
- 举报
倒个试试
dim k,t,l as string
dim arr() as string
...
k = adors.RecordCount
For t = 1 To k
ReDim arr(t, l) As String '动态数组，二维
For l = 1 To rest(t) 'rest(t)是前面程序中定义的动态数组,放的数值
arr(t, l) = Format(adors.Fields(count(l) + 1), "yyyy-mm-dd")
Next l
Next t
dim k,t,l as string
dim arr() as string
...
k = adors.RecordCount
For t = 1 To k
ReDim arr(t, l) As String '动态数组，二维
For l = 1 To rest(t) 'rest(t)是前面程序中定义的动态数组,放的数值
arr(t, l) = Format(adors.Fields(count(l) + 1), "yyyy-mm-dd")
Next l
Next t
