以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数据型的集合add数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81714)
--  作者：shixu
--  发布时间：2016/3/4 10:00:00
--  [求助]数据型的集合add数据
数据型的集合add数据单元失败什么原因？

fys.add( sybj )
--  作者：大红袍
--  发布时间：2016/3/4 10:01:00
--  

提示什么错误？贴出完整代码。
--  作者：shixu
--  发布时间：2016/3/4 10:09:00
--  
Dim drs As List(Of DataRow)
Dim fys As List(Of Double)

Dim bj As Double  = 10000
Dim ll As Double = .14/ 12
Dim qs As Integer = 24
Dim de As Double = (Pmt(ll, qs, bj, 0, 0))
Dim sybj As Double =bj
Output.Show(de)
For i As Integer = 0 To qs-1
    sybj = sybj*(1+ll)+de
    Output.Show(sybj)
    fys.add( sybj )
    \'Output.Show(fys(i))
Next
--  作者：大红袍
--  发布时间：2016/3/4 10:10:00
--  
Dim fys As new List(Of Double)
--  作者：shixu
--  发布时间：2016/3/4 10:12:00
--  
嗯，好了。谢谢。