某列的最后一行循环输入到另外一表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师晚上好，一些时间没来麻烦各位了。

现在是这样的一个问题，我想把表a的第i 天最后一行，输入到表c的 “第i天附”

想了很久，也不知道怎么用循环，烦请指导！

此主题相关图片如下：未标题-2 拷贝.jpg

这是table

下载信息 [文件大小：下载次数： ]
点击浏览该文件:最后一行.table

感谢y2287958 老师，可以实现！

但是各位大师，我不想新增一行，然后写入。而是在原来的一行添加，

Dim fdr As DataRow = DataTables("表c").AddNew

就是不addnew 应该如何表述？

感谢有点甜老师指导，去学习下先

Dim fdr As DataRow

Dim bds As String = "第二列 is not null and "

bds += "Substring(大类,1,1)='第' And Substring(大类,len(大类),1)='天'"

Dim drs As List(of DataRow) = DataTables("表A").Select(bds)

With DataTables("表c")

For Each dr As DataRow In drs

fdr(dr("大类") & "附") = dr("第一列") + dr("第二列") + dr("第三列")

End With

----------------------------

未设置对象变量或 With 块变量。

再次感谢有点甜老师，您给的链接我已仔细阅读。

由于，我学狐表时间尚短，感觉还是不知道如何用语言表达。

思路应该是如果第二列或第三列不是空，就把这行赋值给“第i天附”

，但我确实不知道如何实现，万望有点甜老师给予实例讲解，拜谢了！

万分感谢有点甜老师不厌其烦的指导，我先好好学习下。

Dim dt1 As DataTable = DataTables("表A")

Dim dt2 As DataTable = DataTables("表c")

Dim ndr As DataRow = dt2.AddNew

ndr("线路编号名称") = dt1.DataRows(0)("大类")

Dim bds As String = "第二列 is not null and "

bds += "Substring(大类,1,1)='第' And Substring(大类,len(大类),1)='天'"

Dim drs As List(of DataRow) = DataTables("表A").Select(bds)

Dim ddr As DataRow = DataTables("表A").datarows(0)

Dim fdr As DataRow = DataTables("表C").Find("线路编号名称 = '" & ddr("大类") & "'")

If fdr Is Nothing Then

fdr = DataTables("表C").AddNew

fdr("线路编号名称") = ddr("大类")

End If

For Each dr As DataRow In drs

fdr(dr("大类") & "附") = dr("第一列") + dr("第二列") + dr("第三列")

Dim str As String = ""

Dim ary() As String = {"行程特色", "报名须知", "住宿标准", "旅游交通", "用餐标准", "景点门piao", "儿童标准", "费用不含", "导游服务", "进店明细", "温馨提示" }

For Each s As String In ary

str = ""

For Each dr As DataRow In dt1.Select("大类 = '" & s & "'")

str &= dr("第一列") & vbcrlf

ndr(s) = str

For i As Integer = 1 To 8

str = ""

For Each dr As DataRow In dt1.Select("大类 = '第" & i & "天'")

str &= dr("第一列") & " " & dr("第二列") & " " & dr("第三列") & vbcrlf

ndr("第" & i & "天") = str

--------------------------------

这段代码运行之后，我发现，只有表c 所有的行都删除，才会执行。

如果第一行有值了之后，第i天附就不会赋值了。

看来半天，不知道错在什么地方，只好又来麻烦老师了！

算了，不麻烦老师了，

我做个过渡表，每次执行下dt2.DataRows.Clear

然后再转入需要的库吧

主题：某列的最后一行循环输入到另外一表