以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求助大红袍老师一个代码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84853)
--  作者：349289451
--  发布时间：2016/5/11 23:22:00
--  [求助]求助大红袍老师一个代码问题
Dim cs() As String ={"姓名","日期_星期"}
For Each dc As  String In cs
    For Each dr As DataRow In DataTables("考勤").datarows
        dr(dc) = Nothing
    Next
Next

这段代码  怎样改成  除了  姓名   日期_星期  列其它列的内容都删除
现在这个代码是 只删除   “” 姓名“”   “”日期_星期“”这两列
--  作者：大红袍
--  发布时间：2016/5/11 23:48:00
--  

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 If
Next
--  作者：349289451
--  发布时间：2016/5/11 23:59:00
--  十分感谢 完美解决
十分感谢  完美解决