DataTables("表A").DataRows.clear For i As Integer = 0 To 4 If i = 0 Then Dim nr As DataRow = DataTables("表A").AddNew nr("第一列") = i Else Dim drs As List(of DataRow) = DataTables("表A").Select("第一列 = "& i-1 &"") For j As Integer = 0 To drs.count - 1 Dim nr As DataRow = DataTables("表A").AddNew nr("第一列") = i nr("第二列") = j Next End If Next