ls_sql= ""
ls_syntax = sqlca.SyntaxFromSQL(ls_sql,'style(type=grid)',ls_error)
if len(ls_error) >0 then
messagebox('Error','SyntaxFromSQL Error:~r'+ls_error)
else
dw_.create(ls_syntax,ls_error)
if len(ls_error) >0 then
MessageBox("Error", "Create have these errors: ~r" + ls_error)
end if
ls_syntax = dw_.Object.DataWindow.Syntax
luo_string.append(ls_syntax)
luo_string.Replace("in('')","in(:aa)")
luo_string.Replace(':aa)"',':aa)" arguments=(("aa", stringlist))')
ls_syntax = luo_string.tostring()
dw_.create(ls_syntax,ls_error)
dw_.settransobject(sqlca)
dw_.retrieve(aa)
end if
浙公网安备 33010602011771号