📄 9618.html
字号:
<html>
<head>
<title>Re: 请问如何得知 sample.mdb 下 test 这个table 的 所有栏位名称.</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 请问如何得知 sample.mdb 下 test 这个table 的 所有栏位名称.</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:yehu@tpts6.seed.net.tw">yeong huann</a> on January 28, 1999 at 02:34:42:<p>
In Reply to: <a href="9616.html">请问如何得知 sample.mdb 下 test 这个table 的 所有栏位名称.</a> posted by ET on January 28, 1999 at 00:50:40:<p>
给你一段我写的片段程式,你可以参考看看,再稍做修改即可执行<p>Public Sub Combo1_Click()<br>Me.List1.Clear<br>Tablename = Combo1.Text<br>Set Mydb = Workspaces(0).OpenDatabase(Me.Text1.Text)<br> Set myset = Mydb.OpenRecordset(Tablename, dbOpenTable)<br> If myset.RecordCount = 0 Then<br> MsgBox "此资料表没有任何资料", 64<br>Else<br>count1 = myset.Fields.Count<br> For number = 0 To count1 - 1<br>List1.AddItem myset.Fields(number).Name<br>Next<p>End If<p>End Sub
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 9618-->
</ul><!--end: 9618-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -