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作者: wugecat 时间: 2009-4-30 11:34
顶,如果有注释看起来就会省很多时间作者: lijinshui 时间: 2009-4-30 12:05
好的,以后我会注意的,谢谢提醒