続き  ちょっと修正しました。
for n = 1 To l_trow 
  l_shohin_cd1 = dw_list.Object.shohin_cd[n] 
  if l_shohin_cd1 = l_shohin_cd2 then //DISTINCT表示処理 
    CONTINUE //CONTINUEってあまり望ましく無いけどこの方がきれいなので。 
  end if 
  //商品情報をセット
  l_row = dw_disp.InsertRow(0) 
  dw_disp.Object.shohin_cd[l_row] = l_shohin_cd1 
  dw_disp.Object.shohin_nm[l_row] = ds_list.Object.shohin_nm[n] 
  dw_disp.Object.tanka[l_row] = ds_list.Object.tanka[n] 

  //店舗情報のセット処理
  //対象の商品コードでフィルタをかける
  ds_list.SetFilter(\"shohin_cd = \'\"+l_shohin_cd1+\"\'\") 
  ds_list.Filter()
  l_frow = ds_list.Rowcount() //対象店舗数の取得 
  l_txt = \'\' //変数初期化 
  for i = 1 to l_frow //店舗情報作成 
    l_tenpo = ds_list.Object.tenpo_nm[i] 
    //とりあえずここでは20byte LenWだと半角、全角があった場合揃えられないので 
    l_tenpo += space(20-Len(l_tenpo)) 
    If NOT mod(i,5) = 0 then 
      l_txt += l_tenpo + \' \'//２バイトの空白 
    else 
      l_txt += l_tenpo + \'~r~n\' //改行 
    end if 
  next
  l_txt = LeftW(l_txt,LenW(l_txt)-2) //最後の空白か改行を切る 
  dw_disp.Object.tenpo_nm[l_row] = l_txt //セット 

  l_shohin_cd2 = l_shohin_cd1 //DISTINCT表示処理 
  ds_list.Setfilter(\'\') // データストアのフィルタを解除 
  ds_list.Filter()
next
dw_disp.SetReDraw(True)
SetPointer(Arrow!)