主题：我想用数字来引用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

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

    Dim dr = ht_lx(r)

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

next