Select 表名 = Case When a.Colorder=1 Then d.Name Else '' End,
表说明 = Case When a.Colorder=1 Then Isnull(f.Value,'') Else '' End,
字段序号 = a.Colorder,
字段名 = a.Name,
标识 = Case When ColumnProperty(a.ID,a.Name,'IsIdentity')=1 Then '√' Else '' End,
主键 = Case When Exists(Select 1 From Sysobjects Where Xtype='PK' And Name In (Select Name From Sysindexes Where Indid In (Select Indid From Sysindexkeys Where ID=a.ID And Colid=a.Colid))) Then '√' Else '' End,
类型 = b.Name,
占用字节数 = a.Length,
长度 = ColumnProperty(a.ID,a.Name,'Precision'),
小数位数 = Isnull(ColumnProperty(a.ID,a.Name,'Scale'),0),
允许空 = Case When a.IsNullable = 1 then '√' else '' end,
默认值 = Isnull(e.Text,''),
字段说明 = Isnull(g.Value,'')
From Syscolumns a
Left Join Systypes b on a.Xusertype=b.Xusertype
Inner Join Sysobjects d on a.ID=d.ID And d.Xtype='U' And d.Name <> 'dtproperties'
Left Join Syscomments e on a.Cdefault=e.ID
Left Join Sysproperties f on d.ID = f.ID And f.Smallid=0
left join Sysproperties g on a.ID = g.ID And a.Colid = g.Smallid
--Where d.Name='要查询的表'--如果只查询指定表,加上此条件
Where d.Name='@servicecall'
Order By a.ID,a.Colorder

[@more@]