这些都是很基础的功能,帮助是必须要看的.
1、先在项目事件AfterOpenProject中设置如下代码：
dim bs as string
for each dt as datatable in datatables
bs = bs & "|" & dt.name
next
Tables("表A").Cols("表").Combolist = bs.trim("|")
2、在表A的PrepareEdit事件中输入如下代码：
If e.Col.Name = "列" Then
dim bs as string
for each dc as datacol in datatables(e.row("表")).datacols
bs = bs & "|" & dc.name
next
e.Col.Combolist = bs.trim("|")
End If
加好友 
发短信
Post By：2014/3/13 16:51:00 [显示全部帖子]
