- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]“分数段”列的有序填充？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25665)
-- 发布时间：2012/11/14 5:12:00
-- [求助]“分数段”列的有序填充？
请教：在统计表中的“分数段”列要填充290 300 310 320……680（间隔10）。如何填充？请指教。谢谢！
此主题相关图片如下：如.jpg
-- 发布时间：2012/11/14 5:26:00
--
For 计数器变量 = 初始值 To 终止值 Step 步长值
代码
Next
-- 发布时间：2012/11/14 9:46:00
--
不是可以直接序列填充么？
输入 290 输入 300，然后选取行，序列填充。
-- 发布时间：2012/11/14 11:33:00
--
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
戴了儿
-- 发布时间：2012/11/14 20:00:00
--
谢了！数据表中列可以这样填充，但我是建的临时表。高手已指点。
-- 发布时间：2012/11/14 20:01:00
--
玉良：谢了！这个问题搞定。
-- 发布时间：2012/11/14 22:35:00
--
请教：分数段1、分数段2又如何填充？即290分以上、291分以上……300分以上、301分以上……的人数。谢谢！
此主题相关图片如下：分数段12.jpg
是指计算出≥290、≥291、≥292、……≥300、≥301、……的数。
[此贴子已经被作者于2012-11-15 8:40:32编辑过]
-- 发布时间：2012/11/15 8:30:00
--
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
-- 发布时间：2012/11/15 8:31:00
--
上述代码是针对 你用临时表的代码
-- 发布时间：2012/11/15 8:46:00
--
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