ls_Style = 'Style(Type=Grid)'
ls_DWSyntax = SQLCA.SyntaxFromSQL(ls_SQLSyntax,ls_Style,ls_ErrMsg)
If Len(ls_ErrMsg) > 0 Then
Messagebox('提示','生成的语法有错误~r~n" + ls_ErrMsg)
Else
li_RC = dw_viewdata.Create(ls_DWSyntax)
If li_RC = -1 Then
Messagebox('提示','数据窗口创建失败!')
End If
End If
是这样吧?