主题：[求助]“分数段”列的有序填充？

请教：在统计表中的“分数段”列要填充290　300　310　320……680（间隔10）。如何填充？请指教。谢谢！　
此主题相关图片如下：如.jpg

For 计数器变量 = 初始值 To 终止值 Step 步长值
代码
Next

不是可以直接序列填充么？

输入 290 输入 300，然后选取行，序列填充。

For i As Integer = 290 To 680 Step 10
    Dim dr As DataRow = DataTables("表A").Find("[分数段] = '" & i & "'")
    If dr Is Nothing Then
        Dim dr1 As DataRow = DataTables("表A").AddNew()
        dr1("分数段") = i
    End If
Next

戴了儿

谢了！数据表中列可以这样填充，但我是建的临时表。高手已指点。

玉良：谢了！这个问题搞定。

请教：分数段1、分数段2又如何填充？即290分以上、291分以上……300分以上、301分以上……的人数。谢谢！

此主题相关图片如下：分数段12.jpg

是指计算出≥290、≥291、≥292、……≥300、≥301、……的数。

For i As Integer = 301 To 700 Step 1
    If DataTables("表A").DataCols.Contains("分数段" & i & "分") = False Then
        DataTables("表A").DataCols.Add(""& "分数段" & i & "分" &"", Gettype(Double))
    End If
Next

上述代码是针对 你用临时表的代码

For i As Integer = 290 To 680 Step 1
    If DataTables("表A").DataCols.Contains("分数段" & i & "分") = False Then
        DataTables("表A").DataCols.Add(""& "分数段" & i & "分以上" &"", Gettype(Double))
    End If
Next