Dim tb As Table =Tables("资产负债表")
Dim tb2 As Table = Tables("总分类账")
Dim qj As String = Vars("会计期间")
Dim strs1() As String = {"货币资金"}
Dim strs2() As String = {"strs2(1)"}
Dim x() As String = {"0"}
Dim y() As String = {"6"}
'会计科目中提取'货币资金'的科目代码
For i As Integer = 0 To strs1.Length-1
Dim lst As List(of String) = DataTables("会计科目").GetValues("科目代码","资产负债表 like '" & strs1(i) & "%' or 资产负债表 like '%" & strs1(i) & " '")
Dim str As String
For Each ids As String In lst
str & = ids & ","
Next
'msgbox(1)
str = str.Trim(",")
'msgbox(2)
Dim n As Double = tb2.DataTable.sqlCompute("sum(余额)","科目代码 in (" & str & ") And 摘要 = ' 本 年 累 计' and 会计期间 = '" & Vars("会计期间") & "' ")
'msgbox(3)
tb(CInt(x(i)),CInt(y(i)))=n
'msgbox(4)
'output.show(strs2(i))
Next
问题：当 strs1() 数组 有多少值 时，得到的最后：双精度小数，n，（例：第一个N为N1，第二N为N2，）
如何，进行最想N1 的值 -减去 N2的值 ；等运算操作？
加好友 
发短信
Post By：2017/10/8 15:41:00 [只看该作者]
