主题：[求助]首行填充问题

设置一下排序   Tables("coflow").Sort="_SortKey Desc"

bin老师，是我没说清楚，我想说的是在某列的首行填充数据，而不是想排序

 参考

 

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("", "_Sortkey")
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

没参透。。。。

Dim Cols1() As String = {"c"}
Dim Cols2() As String = {"june"}
For Each dr1 As DataRow In DataTables("coflow").Select("", "_Sortkey")
    Dim dr2 As DataRow = DataTables("coflow").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

甜老师，执行你的代码后，是这样显示的：
此主题相关图片如下：无标题.png
，和我前面的代码执行后的效果是一样的。我想让数据从“红圈”处开始，依次向下填写。

Dim t As Table = CurrentTable
t.Select(0,0,t.Rows.Count - 1,t.Cols.Count - 1)
t.EditCopy
t.Select(0,2,t.Rows.Count - 1,t.Cols.Count - 1)
t.EditPaste

 你要的是跨表查找填充吧？真心搞不懂你

 

Dim Cols1() As String = {"c"}
Dim Cols2() As String = {"june"}
For Each dr1 As DataRow In DataTables("coflow").Select("", "_Sortkey")
    Dim dr2 As DataRow = DataTables("表B").find("QQ = '" & dr1("QQ") & "' and y = '" & dr1("y") & "' and performance = '" & dr1("performance") & "'")
    If dr2 IsNot Nothing Then
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
    End If
Next

甜老师，没跨表，取的是“C”列的值，如图：
此主题相关图片如下：无标题.png