输出DataTable中所有列的类型为数字类型的列名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问，蓝板，输出DataTable中所有列的类型为数字类型的列名，应该怎么做！麻烦了

第一步研究明白了。

For Each Colname As DataCol In DataTables("表名").DataCols

If Colname.IsNumeric Then

Output.Show(Colname.name)

End If

请问第二步应该怎么搞

Dim namess As List(of String)'定义namess集合

For Each Colname As DataCol In DataTables("表A").DataCols '遍历表A的所有列

If Colname.IsNumeric Then '判断列的属性是数字型

请问将判断出来的列明放入namess集合的代码应该怎么写

End If

Output.Show(namess)

[此贴子已经被作者于2020/7/9 22:04:11编辑过]

namess.Add(Colname.Name)

帮助文档多看看，多查查搜索关键词集合

[此贴子已经被作者于2020/7/9 22:09:20编辑过]

Dim namess As New List(of String)'定义namess集合

For Each Colname As DataCol In DataTables("电参日报").DataCols '遍历表A的所有列

If Colname.IsNumeric Then '判断列的属性是数字型

namess.Add(Colname.Name)

End If

For Each nm As String In namess

Output.Show(nm)

解决了，前面加入集合成功了，后面输出写的有问题，导致报错

本人小白，刚刚接触狐表。分享今晚的成果，可以实现单击按钮后，自动判断数字类型的列，然后显示合计值，并定位到最后一行的合计数处。

'第一步:遍历当前表的所有列,并将属性是数字型的列名放进集合nms中

Dim dd As String = MainTable.Name

Dim nms As New List(of String)'定义nms集合

For Each Colname As DataCol In DataTables(dd).DataCols '遍历表A的所有列

If Colname.IsNumeric Then '判断列的属性是数字型

nms.Add(Colname.Name)

End If

'第二步:将集合转换成数组nmss

Dim nmss() As String '

nmss = nms.ToArray()

'第三步:将遍历出来的数字类型的列设置显示合计值

For i As Integer = 0 To nmss.Length -1

Tables("录入窗体_Table1").Cols(nms(i)).GrandTotal = True '指定要合计的列

Tables("录入窗体_Table1").GrandTotal = True '显示合计模式

'第四步:点击合计按钮实现定位到最后一行的合计行

Dim cnt As Integer = Tables("录入窗体_Table1").Rows.Count(True)

Tables("录入窗体_Table1").Select(cnt,0)

如果集合没有其他作用，直接这样即可：

Dim t as table = Tables("录入窗体_Table1")

For Each Colname As Col In t.Cols '遍历表A的所有列

If Colname.IsNumeric Then '判断列的属性是数字型

Colname.GrandTotal = True

End If

t.GrandTotal = True '显示合计模式

Dim cnt As Integer = t.Rows.Count(True)

t.Select(cnt,0)

还是大神牛逼啊，短短几行代码就能实现功能，我写的简直不能看！学习了！

主题：输出DataTable中所有列的类型为数字类型的列名