For Each dc As DataCol In DataTables("表A").DataCols Select Case dc.Name Case "第三列","第四列","第五列","第六列" Dim drs As List(Of DataRow) = DataTables("表A").Select(dc.name & " = '√'") For Each dr As DataRow In drs dr(dc.name) = dc.Caption Next End Select Next
加好友 
发短信
Post By：2012/7/22 13:52:00 [显示全部帖子]
