lijinshui 发表于 2009-4-30 11:05:54

同一个sheet里面可以同时操作不同列

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

wugecat 发表于 2009-4-30 11:34:08

顶，如果有注释看起来就会省很多时间:P

lijinshui 发表于 2009-4-30 12:05:58

好的，以后我会注意的，谢谢提醒:handshake
页: [1]
查看完整版本: 同一个sheet里面可以同时操作不同列