点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

可能仅使用此记录集创建报告
 ...
 调用GetListViewData（ListView1）
 ....

 私人子GetListViewData（lv作为ListView）

     昏暗的我作为整数

     设置RSTEST = New ADODB.Recordset
     使用RSTEST.Fields
         。附加" Field1"，adBSTR
         。附加" Field2"，adBSTR
         。附加" Field3"，adBSTR
         。附加" Field4"，adBSTR
         。附加" Field5"，adBSTR
         。附加" Field6"，adBSTR
     结束于

     RSTEST。打开
     对于I = 1到lv.ListItems.Count
         使用RSTEST
             。添新
             .Fields（" Field1"）= lv.ListItems（I）.Text
             .Fields（" Field2"）= lv.ListItems（I）.SubItems（1）
             .Fields（" Field3"）= lv.ListItems（I）.SubItems（2）
             .Fields（" Field4"）= lv.ListItems（I）.SubItems（3）
             .Fields（" Field5"）= lv.ListItems（I）.SubItems（4）
             .Fields（" Field6"）= lv.ListItems（I）.SubItems（5）
             。更新
         结束于
     接下来我

 结束