以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我想用数字来引用cell可以做到吗，提示索引有问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132147)
--  作者：a937775799
--  发布时间：2019/3/15 0:40:00
--  我想用数字来引用cell可以做到吗，提示索引有问题
 Dim ht_lx As List(of DataRow) = DataTables("合同类型表").Select("[合同类型]<>\'\'","排序号") \'\'合同类型
For Each r_lx As DataRow In ht_lx
    i = 1
    tr = data.AddNew
    tr(i) = r_lx("合同类型")
    ht_ht = DataTables("合同表").Select("[类别标示] = \'" & r_lx("合同类型") & "\'")
    i = i + 1
--  作者：有点甜
--  发布时间：2019/3/15 9:16:00
--  

for r as integer = 0 to ht_lx.count-1

    Dim dr = ht_lx(r)

    msgbox(dr("合同类型"))

next