以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  单元格数据给值，引用求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107716)
--  作者：yancheng
--  发布时间：2017/10/8 15:29:00
--  单元格数据给值，引用求助
Dim tb As DataTable =DataTables("资产负债表")
Dim tb2 As DataTable = DataTables("总分类账")
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"}
\'Dim strs2() As String = {}
\'会计科目中提取\'货币资金\'的科目代码
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.sqlCompute("sum(余额)","科目代码 in (" & str & ") And  摘要 = \' 本 年 累 计\' and 会计期间 = \'" & Vars("会计期间") & "\' ")
\'msgbox(3)

    Dim r As Integer =CInt(x(i))
    Dim Cl As Integer =CInt(y(i))
    output.show(cl)
    tb(r,cl)=n
\'msgbox(4)
\'output.show(x)
\'output.show(strs2(i))
Next

红色部分，要怎么写才不出错呢？
--  作者：yancheng
--  发布时间：2017/10/8 15:35:00
--  
知道问题了。table ,datatable的事儿。