1、你写一个 Isnumeric 函数判断不就好了?
2、
Dim systable As System.Data.DataTable = CurrentTable.DataTable.BaseTable
Dim ChangeTable As System.Data.DataTable
ChangeTable = systable.GetChanges(System.Data.DataRowState.Deleted)
If ChangeTable IsNot Nothing Then
For Each dr As System.Data.DataRow In ChangeTable.Rows '循环获取修改语句
Dim str = dr("_Identify", System.Data.DataRowVersion.Original)
output.show(str)
Next
End If