set session = getsession
set projectname = GetFieldValue("prjname").GetValue()
if projectname<> "" then
strsql = "Select modelname from model where prjname = " + projectname
Set ResultSet = session.BuildSQLQuery(strsql )
ResultSet.Execute
fetchStatus = ResultSet.MoveNext
do while (fetchStatu=1)
choices.AddItem(ResultSet.GetCloumnValue(1))
fetchStatus = ResultSet.MoveNext
loop
end if作者: bill_hen 时间: 2008-7-22 09:47
Maybe use Javascript?