dim s as string for each dt as datatable in datatables
s = s & "|" & dt.name
next
tables("XX").cols("第一列").comboList=s.trim("|")
PrepareEdit事件
dim s as string
if e.col.name="第二列" then
for each c as col in tables(e.row("第一列")).cols
s = s & "|" c.name
next
tables("XX").cols("第二列").comboList=s.trim("|")
end if