📄 2254.html

📁 VB技巧问答10000例,是一个教程

💻 HTML

字号:

<html>
  <head>
    <title>Re: 资料库栏位型态</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>Re: 资料库栏位型态</h1>
    </center>

<HR><p>
Posted by <a href="mailto:yfwu@iname.com">小吴</a> on March 14, 1998 at 22:48:55:<p>
In Reply to: <a href="2247.html"><b>资料库栏位型态</b></a> posted by EDWARD on March 13, 1998 at 21:03:50:<p>
我建议你可以写个程序来处理这种状况，例如<p>Function GetFieldTypeDesctiption(TypeID As DataTypeEnum) As String<br>　　Dim s As String<p>　　Select Case TypeID<br>　　　　Case dbText: s = "文字"<br>　　　　Case dbBoolean: s = "是/否"<br>　　　　' 其它的型别请自己加<br>　　　　Case Else: s = "未知"<br>　　End Select<p>　　GetFieldTypeDescription = s<br>End Function<p>这样你原有的程式就可以写成：<br>Grid1.Text = GetFieldTypeDescription(DATABASEname.TableDefs().Fields(i).Type)<br>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2254-->
</ul><!--end: 2254-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -