[求助]表数据复制到另一张表中，格式分割问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好！

我有2张表：

第一张有一个时间列，值： 08:29 12:10 12:12 17:30，中间用空格分隔

第二张有4个对应列，
图片点击可在新窗口打开查看

此主题相关图片如下：1111.png

我用如下代码，将第一张表数据复制到第二张表没问题，但是遇到需要自己处理的，如何写代码？请指教！谢谢！

Dim Cols1() As String = {"姓名","部门","日期"}

Dim Cols2() As String = {"姓名","部门","考勤日期"}

For Each dr1 As DataRow In DataTables("原始记录2").Select("")

Dim dr2 As DataRow = DataTables("考勤报表").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

另外问一句，为什么有些人复制粘贴上来的代码有颜色？

主题：[求助]表数据复制到另一张表中，格式分割问题