めめさん、こんばんは。

コメントしてくださったのに返信が遅くなり申し訳ありませんm(_ _)m

＞dw_1.SetRedraw() を False にしてから処理する→処理終了で True にすると
＞速度面で少し改善するかもしれません。（それでもこの場合、気休め程度かもしれませんが…）
はい！
この描画に関しては実装したうえで実行してみました^^
そんなにデータ行数や列数が多くなければ気にならないくらい早いのですが、、
丁寧に教えてくださり本当にありがとうございます。

以下、今後誰か見る方用に解決策を記載致します。
※字数制限により、分割させていただきます。

◆データ件数×列数がさほど多くない場合

ls_src = dw_1.Object.DataWindow.Syntax

?何かしらの処理?

ll_pos　= 1
ls_data = dw_1.Describe(\"DataWindow.Data\")
dw_1.CREATE(ls_src,ls_error)

ll_length = Len(ls_data)
ll_column = Long(dw_1.Object.DataWindow.Column.Count)

Do While ll_pos <= ll_length
   ll_row++
   For ll_idx = 1 To ll_column
       If ll_idx = ll_column Then
          ls_delimiter = \"~r\"
       Else
          ls_delimiter = \"~t\"
       End If

       ll_tab = Pos(ls_data, ls_delimiter, ll_pos)
       If ll_tab = 0 Then ll_tab = ll_length + 1
       ls_coltype = Lower(dw_1.Describe(\"#\" + String(ll_idx) + \".ColType\"))
       If Left(ls_coltype, 4) = \"char\" Then ls_coltype = \"char\"
       
       Choose Case ls_coltype
          Case \"int\", \"long\", \"number\", \"ulong\"
             dw_1.Object.Data[ll_row, ll_idx] = Long(Mid(ls_data, ll_pos, ll_tab - ll_pos))
          Case \"char\"
             dw_1.Object.Data[ll_row, ll_idx] = Mid(ls_data, ll_pos, ll_tab - ll_pos)
          Case Else
             // その他のカラム(Decimal等)
       End Choose

       ll_pos = ll_tab + 1
   Next
Loop