DataTableの加工について（同じテーブルの列を複製したい）

日本 フォーラム
, , ,
1

やりたいこと
①原本のデータ（原本データテーブル）を読み込み、
②削除フラグ「1」の列を追加
③削除の伝票番号の列を追加※ここで追加するのは原本データテーブルの7列目★

This image shows a sequence of actions in an automation workflow, specifically adding and configuring new data columns to an existing data table, with settings displayed in Japanese. (Captioned by AI)
This image shows a sequence of actions in an automation workflow, specifically adding and configuring new data columns to an existing data table, with settings displayed in Japanese. (Captioned by AI)1693×688 97.4 KB

③で躓いています。

▼読み込んでいるCSVの中身としては
A列 日付
B列 顧客コード
・
・
・
G列 伝票番号
H列 削除フラグ←②で追加した固定値１
I列 G列と同じ伝票番号をいれたい←③の処理でしたいこと

ご教授のほど何卒よろしくお願いいたします。

2

こんにちは

DataColumn.Expressionを用いて、式を列に埋め込むか
繰り返し等を使い、個別に値を代入していくかのいずれかになると思います。

前者は

dt.Columns("伝票番号2").Expression = "伝票番号"

image

後者は以下のような感じになると思います。

image
image613×567 8.97 KB

CurrentRow("伝票番号2") = CurrentRow("伝票番号")

もし速度が問題になる場合はLINQを使うか、InvokeCodeを使うことになると思います。

3

前者をまず試したのですが、添付のエラーとなります。
要因わかりますでしょうか

The image shows an error message in Japanese within a visual programming interface, indicating that an implicit conversion from 'Object' to 'String' is not allowed under Option Strict On. (Captioned by AI)
The image shows an error message in Japanese within a visual programming interface, indicating that an implicit conversion from 'Object' to 'String' is not allowed under Option Strict On. (Captioned by AI)1292×513 68 KB

4

左辺の式をそのまま貼り付けれますか？半角スペース４文字インデントして（行頭に半角スペース４文字入れて）から貼ってもらえると正確な文字列になります

5

すみません！理解しました。
代入の左辺：dt.Columns(“伝票番号2”).Expression
代入の右辺：“伝票番号”
ということですね

6

A text editor window with Japanese menu options is partially covering another window displaying columns of numerical and date data, some of which are in Japanese. (Captioned by AI)
A text editor window with Japanese menu options is partially covering another window displaying columns of numerical and date data, some of which are in Japanese. (Captioned by AI)1739×431 46.8 KB

前者の方法でやりたかったことができました！

1 Like
7

This topic was automatically closed 3 days after the last reply. New replies are no longer allowed.