主题：程序问题

程序1

If DataTables("订单").dataCols("金额").IsNumeric=True

 messageBox.show("学编程得下苦工，尽量减少外界干扰!","警示")

End If

 程序2

For Each dc As DataCol In DataTables("订单").DataCols

    If dc.IsNumeric Then

        Output.Show(dc.Name)

    End If

Next

 For Each dc As DataCol In DataTables("订单").DataCols

    If dc.IsNumeric=True Then

        Output.Show(dc.Name)

    End If

Next