ls_SQLSelect = " Select LM from tysj_bldy where BM = " + ls_tabname + " LLBBM = " + ls_value
ls_Syntax = SQLCA.SyntaxFromSQL(ls_SQLSelect ,"Style(Type=Form)",ls_Error)
if len(ls_Error) >0 then
return "创建动态窗口失败" + ls_Error
else
dw_measure.Create(ls_Syntax,ls_Error2)
if len(ls_Error2) > 0 then
return "创建动态窗口失败"+ls_Error2
else
return ("1")
end if
end if
end if