主题：一个很棘手的数据表转换问题

狐爸：我试着开发一个运动会系统。现遇到一个问题。运动员在报名时是一种报名数据格式，而比赛记分又是一种数据格式。请问如何将导入系统后的“运动项目报名表”的数据格式转换为“运动员比赛表”的数据格式？因为运动成绩记统计需要用“运动员比赛表”的数据进行计算。要解决的问题就是将“运动项目报名表”的数据转换到“运动员比赛表”中，因为这个问题对于我来讲非常重要，请狐爸费心了。见附件。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:运动员项目格式转换(商业版).rar

其實很容易,不過看著樓主應付了事的例子,閃了

确实很容易：

 

 

Dim nms() As String = {"第三列","第四列","第五列","第六列","第七列","第八列","第九列","第十一列","第十二列","第十三列","第十四列","第十五列"}
For Each dr As DataRow In DataTables("运动项目报名表").DataRows
    For Each nm As String In nms
        If dr.IsNull(nm)  = False
            Dim r As Row = Tables("运动员比赛表").AddNew
            r("第一列")  = dr("第一列")
            r("第二列") = dr("第二列")
            r("第三列") = dr(nm)
        End If
    Next
Next

 

hhbb说得对，你的例子也太随便了。

因为这是在系统设计中首先需要解决的问题，后面的设计还没有开始，让hhdd及狐爸误解了。谢谢了!