1. 程式人生 > >從數據庫中查詢出數據,賦值給結構體。

從數據庫中查詢出數據,賦值給結構體。

method sel lec not 取出 eth where turn class

1:

  method GET_CUSTOMER.
   DATA: zlt TYPE table OF ZGT_CUSTOMER,    "定義內表
      zlv TYPE ZGT_CUSTOMER.                "定義結構體變量

   IF IS_CUST_KEY IS NOT INITIAL.
     select * from ZMAST_CUST INTO TABLE zlt where CUSTNO = 00009.
   ELSE.
   ENDIF.
   IF SY-SUBRC = 0.
     loop at zlt into zlv.  "將內表中的數據取出,賦值給結構體。
* IF <data>-NEW EQ ‘C‘ OR <data>-NEW EQ ‘M‘. MOVE-CORRESPONDING zlv TO es_cust_attr. " move-corresponding a to b. "a和b的類型必須相同。 RETURN. ENDLOOP. * ENDIF. ENDIF. endmethod.

從數據庫中查詢出數據,賦值給結構體。