Dim cs() As String ={"姓名","日期_星期"}For Each dc As DataCol In DataTables("考勤").datacols If array.indexof(cs, dc.name) = -1 Then For Each dr As DataRow In DataTables("考勤").datarows dr(dc.name) = Nothing Next End IfNext