Public Class agreement
Public 合同代码 As String
Public 合同名称 As String
Public 合同金额 As Decimal
Public 结算金额 As Decimal
Public 产生金额 As Decimal
Sub New(ByVal htdm As String , ByVal htmc As String)
合同代码 = htdm
合同名称 = htmc
End Sub
End Class
dim a as agreement = new agreement("code_a" ,"name_a")
a.合同金额= 10000
a.结算金额= 11000
a.产生金额=5000
dim b as agreement = new agreement("code_b" ,"name_b")
b.合同金额= 100000
b.结算金额= 110000
b.产生金额=50000
dim c as agreement = new agreement("code_c" ,"name_c")
c.合同金额= 1000000
c.结算金额= 1100000
c.产生金额=500000
dim l as list(of agreement) = new list()
l.add(a)
l.add(b)
l.add(c)
dim sn() as string = {"合同金额","结算金额"} '''我这个数组可以改添加删除
for i as integer = 0 to sn.length - 1
for each a as agreement in l
output.show( a.sn(i) )
next
next
加好友 
发短信
Post By：2020/3/16 9:34:00 [显示全部帖子]
