数据报表中shape到底怎么用阿？各位高手救救我把？

Question

SHAPE怎么用？这问题有点莫明其妙。问题是：你想怎么用？

Answer 1

例如：
 Rs.Source = "SHAPE {{CALL DBO.pro_print_proinvoice6(" & Cs(Text5.Text) & ") }}" + _
            " as PreformaInvoice COMPUTE PreformaInvoice by 'orderid','custpo','custfullname'" + _
            ",'deliveryaddress','mename','amanager','manager','shipby','deliverydate','mains'" + _
            ",'tradeterm','paymentterm','currencycode','totalamount'" + _
            ",'re'"
        Rs.Open

Answer 2

dim cn as new adodb.connection
dim cmd,cmd2 as new adodb.command
'下面很重要，如果没有msdatashape支持是用不了shape的
cn.open "provider=MSDATASHAPE;data provider=Microsoft.JET.OLEDB.4.0;" _
      & "data source=" & app.path & "\database\autodata.mdb"  with cmd
   .actionconnection=cn
   .commandtype=adcmdtext
   .commandtext="shape{select tb_fix.fix_id,...,tb_car.car_cp,... " _
                & "from tb_fix,tb_car,tb_kh,..." _
                & "where ...}" as cmd " _
                & "append({select * from tb_xmpj_temp} " _
                & "releate 'fix_id' to 'fix_id') as cmd2"
   
  end with  
有分吗？我的分快用完