Comments by 1DSparrows (Top 22 by date)

Here how I used your code:

If (dt.Rows.Count > 100000) Then

Dim scr As DataTable = New DataTable()
scr.Columns.Add(New DataColumn("key_id", Type.GetType("System.Int32")))

For _c As Integer = 0 To dt.Rows.Count
scr.Rows.Add(New Object() {_c})
Next

Dim increasement As Integer = 30000
Dim curVal As Integer = 1
Dim result As DataRow()
Dim ds As DataSet = New DataSet()
Do
result = scr.Select(String.Format("key_id >={0} And key_id<{1}", curVal, curVal + increasement)).Clone()
If result.Length > 0 Then
Dim tmp As DataTable = scr.Clone()
Dim sb As StringBuilder = New StringBuilder()
For Each dr As DataRow In result
tmp.Rows.Add(New Object() {dr("key_id")})
sb.Append(String.Format("{0};", dr("key_id")))
Next
ds.Tables.Add(tmp)
Console.WriteLine("{0}", sb.ToString())
sb = Nothing
End If
curVal += increasement
Loop While (result.Length > 0)


End If

dt.WriteXml(writer, False)