- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]首行填充问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53131)
-- 发布时间：2014/6/30 14:07:00
-- [求助]首行填充问题
-- 发布时间：2014/6/30 14:10:00
--
设置一下排序 Tables("coflow").Sort="_SortKey Desc"
-- 发布时间：2014/6/30 15:07:00
--
bin老师，是我没说清楚，我想说的是在某列的首行填充数据，而不是想排序
-- 发布时间：2014/6/30 15:34:00
--
参考
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
-- 发布时间：2014/6/30 15:58:00
--
没参透。。。。
-- 发布时间：2014/6/30 16:01:00
--
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
-- 发布时间：2014/6/30 16:14:00
--
甜老师，执行你的代码后，是这样显示的：
此主题相关图片如下：无标题.png
，和我前面的代码执行后的效果是一样的。我想让数据从“红圈”处开始，依次向下填写。-- 发布时间：2014/6/30 16:23:00
--
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
-- 发布时间：2014/6/30 16:25:00
--
你要的是跨表查找填充吧？真心搞不懂你
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
-- 发布时间：2014/6/30 16:42:00
--
甜老师，没跨表，取的是“C”列的值，如图：
此主题相关图片如下：无标题.png