- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]表列名集合 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146750)
-- 发布时间：2020/3/1 20:39:00
-- [求助]表列名集合
老师好。
此主题相关图片如下：image 2.png
-- 发布时间：2020/3/1 21:01:00
--
http://www.foxtable.com/webhelp/topics/2496.htm
-- 发布时间：2020/3/1 21:22:00
--
老师，感觉好难，谢谢老师帮忙。
-- 发布时间：2020/3/1 21:31:00
--
参考：http://www.foxtable.com/webhelp/topics/1428.htm
-- 发布时间：2020/3/2 20:57:00
--
老师好
此主题相关图片如下：image 2.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表列名管理.rar |
-- 发布时间：2020/3/2 21:21:00
--
For Each c As Col In Tables("出库明细").Cols
Dim dr As DataRow = DataTables("表列名管理").AddNew
dr("表名") = "出库明细"
dr("列名") = c.Name
dr("列宽") = c.Width
Select Case c.DataCol.DataType.Name
Case "String"
If c.DataCol.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
-- 发布时间：2020/3/2 22:04:00
--
感谢老师
-- 发布时间：2020/3/2 23:04:00
--
老师，为了方便设置列宽想要这样集合列宽。
此主题相关图片如下：image 3.png
-- 发布时间：2020/3/2 23:12:00
--
看2楼