以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数据类型判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118376)
--  作者：maomaoxw
--  发布时间：2018/5/1 9:21:00
--  [求助]数据类型判断

各位老师好，对数据列的数据类型判断，有Isnumeric判断是否是数值型，我的需要想进一步，比如说，我想判断数据列是否是Integer，double或者是decimal，有什么办法可以做到？

或者简单一点，判断是有整数的或者有小数位的？
--  作者：有点甜
--  发布时间：2018/5/1 18:56:00
--  

参考代码

 

Dim tb As DataTable = DataTables("表A")

For Each dc As object In tb.basetable.columns
    output.show(dc.ColumnName & " " & dc.DataType.name)
Next
[此贴子已经被作者于2018/5/1 18:56:40编辑过]
--  作者：maomaoxw
--  发布时间：2018/5/2 11:48:00
--  

哦，对这个basetable的应用不了解！

如果我想在全局表事件中设置对所有表中可以有小数位的数据列（single，double，decimal等）设置数字格式setformat（“#，##0.00”），全局表事件应该怎么写？
--  作者：有点甜
--  发布时间：2018/5/2 14:35:00
--  
For Each t As Table In Tables
    Dim tb As DataTable = t.DataTable
    For Each dc As object In tb.basetable.columns
        If dc.datatype.name = "Double" OrElse dc.datatype.name = "single" OrElse dc.datatype.name = "decimal" Then
            If tb.datacols.Contains(dc.columnname) Then
                tb.datacols(dc.columnname).SetFormat("#,##0.00")
            End If
        End If
        output.show(dc.ColumnName & " " & dc.DataType.name)
    Next
Next