如何VF用列表框显示数据库中的所有表名

有什么方法，或者命令可以实现啊？麻烦说清楚点...

2025-03-01 16:07:04

推荐回答（3个）

回答1：

首先，把列表框的 RowSourceType 属性改为 1-值然后，把列表框的 RowSource 属性改为：表1,表2,表3 表的名字我不知道，你自己套，用逗号隔开（英文的逗号）

回答2：

OPEN DATABASE yourDatabase
lnCount = ADBOBJECTS(tTable,"TABLE")
IF lnCount == 0
? "No Tables"
RETURN
ENDIF
lcString = ''
FOR i = 1 TO lnCount
lcString = lcString + tTable(i) + ","
NEXTlcString = substr(lcString,1,len(lcString) - 1)
thisform.combo1.Style = 2
thisform.combo1.value = 1
thisform.combo1.RowSourceType = 1
thisform.combo1.RowSourceType = lcString
CLOSE DATABASES

回答3：

摆渡一下你就知道