怎么实现遍历表列名并遍历赋值？
当前窗体有一个table11表 来源字段列 拟用来接收选择的textbox2中的excel表中的列名值 当有来源字段列后，怎么遍历textbox2中的excel表获取表行数据对应到排序这个表中各自的列呢？
当前代码如下：（已经实现获取列并生成对应的排序临时表，怎么获取excel表数据呢？）红色部分代码该怎么写呢？
Dim r As Row
Dim t As Table = e.Form.Controls("Table11").Table '
Dim i As Integer
Dim Book As New XLS.Book(e.Form.Controls("TextBox2").value)
Dim Sheet As XLS.Sheet = Book.Sheets(e.sender.value)
t.StopRedraw
t.DataTable.DataRows.clear
For i = 0 To Sheet.Cols.count - 1
If Sheet(0,i).text > ""
r = t.AddNew()
r("来源字段") = Sheet(0,i).Value
End If
Next
t.ResumeRedraw
Dim Products As List(Of String)
Products = T.DataTable.GetValues("来源字段")
Dim dtb As New DataTableBuilder("排序")
For Each Product As String In Products
If Product.Contains("交易金额") Then
dtb.AddDef(Product, Gettype(Double), 32)
Else
dtb.AddDef(Product, Gettype(String), 32)
End If
Next
dtb.Build()
MainTable=Tables("排序")
Tables("排序").stopRedraw
……
Tables("排序").ResumeRedraw
[此贴子已经被作者于2021/11/29 10:55:14编辑过]
加好友 
发短信
Post By：2021/11/29 10:54:00 [显示全部帖子]
