那个能将表结构，定义和规则等打印到WORD里面的程序

大熊

WHERE？

tmtony

用工具里[分析]里的文档管理器生成后用WORD输出

大熊

看这个文件，头都大了。不好透顶。

tmtony

用程序写也可以 有些烦
循环表里的对象可以做到

大熊

你写过没有？挺复杂的。

tmtony

写过一部分
我的繁简转换程序要转换表里的所有字段的名称，标题，缺省值，说明，规则等
但有些属性没用到。如你所说，写起来要花时间 ：）

大熊

碰到问题了，那个输入法模式怎么读出来？

tmtony

试试这个
Dim mydb As DAO.Database
Dim myT As DAO.TableDef

Set mydb = CurrentDb
Set myT = mydb.TableDefs("aa")
Dim myFld As DAO.Field
For Each myFld In myT.Fields
    MsgBox myFld.Name
    MsgBox myFld.Properties("ImeMode")

Next

输入法随意为0
开启为1
关闭为2

大熊

非常感谢！成功。BY THE WAY，你知道为什么自动提示中怎么会没有吗？

大熊

没问题！

[此贴子已经被大熊于2002-4-16 16:36:45编辑过]