Foxtable(狐表)用户栏目专家坐堂 → 如何删除所有列


  共有1888人关注过本帖树形打印复制链接

主题:如何删除所有列

帅哥哟,离线,有人找我吗?
2900819580
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1347 积分:9817 威望:0 精华:0 注册:2015/6/30 8:46:00
如何删除所有列  发帖心情 Post By:2017/5/3 10:43:00 [只看该作者]

如下代码,但还是没办法删除所有的列;

Dim tb As Table = Tables(E.Form.Name & "_table1")
Dim dt As DataTable = tb.DataTable
dt.DataRows.Clear


For Each c As Col In tb.Cols
     dt.DataCols.Delete(c.Name)
Next
dt.DataCols.Add("A",Gettype(String),100)

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 11:08:00 [只看该作者]

Dim tb As Table = Tables(E.Form.Name & "_table1")
Dim dt As DataTable = tb.DataTable
dt.DataRows.Clear

For i As Integer = tb.Cols.count-1 To 0 Step -1
     dt.DataCols.Delete(tb.Cols(i).Name)
Next
dt.DataCols.Add("A",Gettype(String),100)


 回到顶部