For Each c As DataCol In DataTables("表A").DataCols
Dim dr As DataRow = DataTables("管理").AddNew
dr("表名") = dt.Name
dr("列名") = c.Name
dr("长度") = c.MaxLength
Select Case c.DataType.Name
Case "String"
If c.MaxLength > 255 Then
dr("类型") = "备注"
Else
dr("类型") = "字符"
End If
Case "DateTime"
dr("类型") = "日期时间"
Case "Boolean"
dr("类型") = "逻辑"
Case "Int32"
dr("类型") = "整数"
Case "Int16"
dr("类型") = "短整数"
Case "Byte"
dr("类型") = "微整数"
Case "Double"
dr("类型") = "双精度"
Case "Single"
dr("类型") = "单精度"
Case "Decimal"
dr("类型") = "高精度"
End Select
Next
加好友 
发短信
Post By：2021/8/23 11:56:00 [只看该作者]
