For i As Integer = 0 To Tables("窗口1_Table1").rows.Count - 1
Tables("窗口1_Table1").Rows(i)("第一列") = i + 101
Next
With DataTables("窗口1_Table1")
If .DataRows.count > 0
.DataCols("第一列").RaiseDataColChanged(.DataRows(0))
End If
End With
For i As Integer = 0 To Tables("窗口1_Table2").rows.Count - 1
Tables("窗口1_Table2").Rows(i)("第一列") = i + 101
Tables("窗口1_Table2").Rows(i)("第二列") = Tables("窗口1_Table2").Rows(i)("第一列") + format(i+1, "00")
Next
With DataTables("窗口1_Table2")
If .DataRows.count > 0
.DataCols("第二列").RaiseDataColChanged(.DataRows(0))
End If
End With