或者扩展一下类型
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
public function getvalue(name asstring) as Decimal
if name = "合同金额" then
return 合同金额
elseif name = "结算金额" then
return 结算金额
end if
end function
End Class
-------------
dim sn() as string = {"合同金额","结算金额"} '''我这个数组可以改添加删除
for i as integer = 0 to sn.length - 1
for each a as agreement in l
output.show( a.getvalue(sn(i) )
next
next
加好友 
发短信
Post By：2020/3/16 9:56:00 [显示全部帖子]
