For loop 从现有数据集中向新数据集中插入值

我使用vb.net。数据集包含列名称作为电话。它包含一组电话号码。我想向每个电话号码添加0，并将其存储在另一个数据集中

我的代码 我的问题是我没有得到ds1中的值

请帮我纠正一下。

你应该试试这个

cmd = New OracleCommand("select substr(PHONE,-10)as PHONE from  reports.renewal_contact_t where run_date=to_date('" + TextBox1.Text + "','mm/dd/yyyy') and  EXP_DATE =to_date('" + TextBox2.Text + "','mm/dd/yyyy') and  region not in('TNP')", cn)
ada = New OracleDataAdapter(cmd)
ada.Fill(ds, "reports.renewal_contact_t ")
Dim ds1 As New DataSet
ds1 = ds.Copy()

For Each q In ds1.Tables(0).Rows
    q("PHONE") = "0" + q("PHONE").ToString
Next

cmd = New OracleCommand("select substr(PHONE,-10)as PHONE from  reports.renewal_contact_t where run_date=to_date('" + TextBox1.Text + "','mm/dd/yyyy') and  EXP_DATE =to_date('" + TextBox2.Text + "','mm/dd/yyyy') and  region not in('TNP')", cn)
ada = New OracleDataAdapter(cmd)
ada.Fill(ds, "reports.renewal_contact_t ")
Dim ds1 As New DataSet
ds1 = ds.Copy()

For Each q In ds1.Tables(0).Rows
    q("PHONE") = "0" + q("PHONE").ToString
Next