动态创建数据窗口的两种方法

创建数据有多种方法，比如用SELECT语句创建，这里最简单，还有用自定义字创建数据窗口，这个比较复杂，

下面就这两种方法介绍一下：

1、用SELECT创建数据窗口

     string ls_sql = 'select * from mara'
     string error_syntaxfromSQL, error_create

     string new_syntax

     new_syntax = SQLCA.SyntaxFromSQL(ls_sql, 'Style(Type=grid)', error_syntaxfromSQL)
  
     IF Len(error_syntaxfromSQL) > 0 THEN
         // Display errors
         messagebox('创建失败[1]!!!','错误创建语句：'+error_syntaxfromSQL)
         return
    ELSE
         // Generate new DataWindow
         dw_1.Create(new_syntax, error_create)
         IF Len(error_create) > 0 THEN
             messagebox('创建失败[2]!!!','创建数据窗口出错：'+ error_create)
             return
         END IF

    END IF

    string ls_request, ls_report
    ls_report = dw_1.Describe("Datawindow.Objects") +"~t"
    long Ll_Pos,ll_start
    string ls_objstr,ls_obj
    string ls_colname[]
    long ll_count
    Ll_Pos =  Pos(Ls_ObjStr, "~t", Ll_Start)

 

    //设置数据窗口更新字段
    long Ll_Pos,ll_start =1
    string ls_objstr,ls_obj
    string ls_colname[]
    long ll_count
    Ls_ObjStr = DW_1.Describe("Datawindow.Objects") + "~t"
    Ll_Pos =  Pos(Ls_ObjStr, "~t", Ll_Start)

    Do While Ll_Pos > 0
         Ls_Obj = Mid(Ls_ObjStr, Ll_Start, Ll_Pos - Ll_Start)
         If (DW_1.Describe(Ls_Obj + ".type") = 'column' ) And (DW_1.Describe(Ls_Obj + ".band") = 'detail') And & 
            (DW_1.Describe(Ls_Obj + ".visible") = "1" ) Then
            ll_count ++