pb根据sql语句生成数据窗口

 string ls_sql,ls_syntax,ls_error
ls_sql = mle_1.text
ls_syntax = sqlca.SynTaxFromSql(ls_sql,'style(type=grid)',ls_error)
IF len(ls_error) > 0 Then
 MessageBox('Error',ls_error)
 Return
Else
 ls_error = ''
 dw_1.create(ls_syntax,ls_error)
 if len(ls_error) > 0 Then
  MessageBox('Error2',ls_error)
  Return
 End IF
 dw_1.settransobject(sqlca)
 dw_1.Retrieve()
End If

mle_2.text = ls_syntax