|
1 可以在datatable里面动态追加一列
2 同一个sheet里面可以同时操作不同列的元素
3 希望可以和新人共同进步
Dim tempa,tempb
Dim gj,gc
gc = 0
DataTable.GetSheet("Action1").AddParameter("new",NewCol).Value= gc '新桁を新規する
'`データを追加する
For i = 1 to 3
DataTable("AA", dtLocalSheet) = "A" & i
DataTable("BB", dtLocalSheet) = "B" & i
Datatable.SetNextRow
Next
For i=1 to 3
DataTable.SetCurrentRow(i)
tempa = DataTable("AA", dtLocalSheet)
For j=1 to 3
DataTable.SetCurrentRow(j)
tempb = DataTable("BB", dtLocalSheet)
gc = gc+1
DataTable.SetCurrentRow(gc)
DataTable("new", dtLocalSheet) = "Tempa ->" & tempa & "Tempb ->" & tempb
DataTable.GetSheet("Action1").SetNextRow
gj = j
datatable.LocalSheet.setnextrow
Next
If gj = 3 Then
datatable.LocalSheet.setnextrow
End If
Next |
|