|
access 导出表结构 ，我下载了 一位网友的程序 修改时 发现 老是 3720 错误，于是查询 解决方法，没想到 发现了 VB6 VBA 返回错误行号 的 系统变量Erl，在某些情况下 非常有用，当然下面的程序，是在没有发现Erl前写的，网友可以参考，使用Erl 更简单， 你也可以 直接 resume。感谢各位网友。
==============
vb6并不提倡使用Erl所以它是隐藏的且VB6MSDN中无说明。
你写了N年程序大概也不会有几个挂行号的吧（除非你写GWBASIC)。
access 导出表结构 ，我下载了 一位网友的程序 修改是 发现
'添加Excel工作表
If qdfLoop.Type = 0 Then '如果是选择查询
Set objSheet = objBook.Worksheets.Add
objSheet.Name = sSheetName
lngRow = 2
i = 0
With objSheet
.range("A1") = sTableName
.range("A1").Font.FontStyle = "Bold"
.Hyperlinks.Add Anchor:=.cells(1,2),address:="",SubAddress:="查询说明书目录!A1",TextToDisplay:="返回目录"
.range("A2") = "序号"
.range("B2") = "字段名称"
.range("C2") = "数据类型"
.range("D2") = "标题"
.range("E2") = "描述"
.range("F2") = "允许零长度"
.range("G2") = "缺省值"
.range("H2") = "必需"
For Each fld In qdfLoop.Fields
lngRow = lngRow + 1
i = i + 1
.cells(lngRow,1) = i '序号
.cells(lngRow,2) = fld.Name '字段名称
.cells(lngRow,3) = GetQryFieldType(fld.Type) '字段类型
n = 1
1 .cells(lngRow,4) = fld.Properties("Caption").Value
n = 2
2 .cells(lngRow,5) = fld.Properties("Description").Value
n = 3
3 .cells(lngRow,6) = fld.Properties("AllowZeroLength").Value
n = 4
4 .cells(lngRow,7) = fld.Properties("DefaultValue").Value
n = 5
5 .cells(lngRow,8) = fld.Properties("Required").Value
n = 6
6 .cells(lngRow,9) = fld.Properties("Size").Value
n = 7
Next fld
End With
ErrorHandler: If Err.Number = 3270 Then Select Case n Case 1 objSheet.cells(lngRow,4) = "" Case 2 objSheet.cells(lngRow,5) = "" Case 3 objSheet.cells(lngRow,6) = "" Case 4 objSheet.cells(lngRow,7) = "" Case 5 objSheet.cells(lngRow,8) = "" Case 6 objSheet.cells(lngRow,9) = "" Case Else MsgBox "未处理的 找不到属性，请查看错误处理！" End Select （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
