- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 表的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121289)
-- 发布时间：2018/7/3 14:06:00
-- 表的问题
只计算有数值的行，如何改代码？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目8.foxdb |
-- 发布时间：2018/7/3 14:17:00
--
具体一点你的问题，执行什么代码，要实现什么效果？具体里说明。
-- 发布时间：2018/7/3 14:23:00
--
第四列的运算，有数据更新时就会乱
-- 发布时间：2018/7/3 14:31:00
--
If e.DataCol.name = "开奖号" AndAlso e.DataRow("开奖号").length >= 5 Then
Dim t As Table = Tables("老时时彩")
For i As Integer = 0 To t.rows.count-10
Dim r1 As Row = t.rows(i)
Dim flag As String = "无"
For j As Integer = i+1 To i+9
Dim r2 As Row = t.rows(j)
If r1("开奖号").substring(0,1) = r2("开奖号").substring(0,1) Then
flag = "有"
Exit For
End If
Next
If IsNumeric(r1("开奖号")) Then r1("第四列") = flag
Next
End If
-- 发布时间：2018/7/3 14:35:00
--
把
Tables("老时时彩").Sort = "日期"
改成
Tables("老时时彩").Sort = "日期, 期号"
-- 发布时间：2018/7/3 14:58:00
--
还是有问题，一更新数据就把没数据的也运算完了，跑到表尾去了！老师帮我测试看是什么问题，谢谢
-- 发布时间：2018/7/3 15:37:00
--
此主题相关图片如下：qq图片20180703153225.png
此主题相关图片如下：qq图片20180703152826.png
一个图是正常的，还有一个图是更新数据后的，计算了没有数据的行。-- 发布时间：2018/7/3 16:17:00
--
If e.DataCol.name = "开奖号" Then
If e.DataRow("开奖号").length >= 5 Then
Dim t As Table = Tables("老时时彩")
Dim drs = t.DataTable.Select("len(开奖号)>=5", "日期,期号")
For i As Integer = 0 To drs.count-10
Dim r1 As DataRow = drs(i)
Dim flag As String = "无"
For j As Integer = i+1 To i+9
Dim r2 As DataRow = drs(j)
If val(r1("开奖号")) <> 0 AndAlso r1.IsNull("开奖号") = False AndAlso r2.IsNull("开奖号") = False AndAlso r1("开奖号").substring(0,1) = r2("开奖号").substring(0,1) Then
flag = "有"
Exit For
End If
Next
r1("第四列") = flag
Next
Else
e.DataRow("第四列") = Nothing
End If
End If
-- 发布时间：2018/7/3 16:53:00
--
谢谢