以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个很棘手的数据表转换问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21637)

--  作者:aygp
--  发布时间:2012/7/19 15:36:00
--  一个很棘手的数据表转换问题
狐爸:我试着开发一个运动会系统。现遇到一个问题。运动员在报名时是一种报名数据格式,而比赛记分又是一种数据格式。请问如何将导入系统后的“运动项目报名表”的数据格式转换为“运动员比赛表”的数据格式?因为运动成绩记统计需要用“运动员比赛表”的数据进行计算。要解决的问题就是将“运动项目报名表”的数据转换到“运动员比赛表”中,因为这个问题对于我来讲非常重要,请狐爸费心了。见附件。
 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:运动员项目格式转换(商业版).rar


--  作者:hhbb
--  发布时间:2012/7/19 15:49:00
--  
其實很容易,不過看著樓主應付了事的例子,閃了
--  作者:狐狸爸爸
--  发布时间:2012/7/19 15:52:00
--  

确实很容易:

 

 

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说得对,你的例子也太随便了。

[此贴子已经被作者于2012-7-19 15:51:54编辑过]

--  作者:aygp
--  发布时间:2012/7/19 16:13:00
--  
因为这是在系统设计中首先需要解决的问题,后面的设计还没有开始,让hhdd及狐爸误解了。谢谢了!