- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码运行结果异常 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187788)
-- 发布时间：2023/8/11 11:15:00
-- 代码运行结果异常
如下代码，我想要达到的效果如第八、九列的效果，但实际输出（如第五、六列）有隔行遗漏是怎么回事？
此主题相关图片如下：代码.jpg
此主题相关图片如下：结果.jpg
[此贴子已经被作者于2023/8/11 11:16:28编辑过]
-- 发布时间：2023/8/11 11:22:00
--
麻烦代码文字发上来
-- 发布时间：2023/8/11 11:42:00
--
ChangeEdit表事件代码
Dim str() As String
Select Case e.Col.Name
Case "搜索关键字"
str = e.Text.Split(" ")
e.Row("搜索结果显示") = str.Length()
For i As Integer = 0 To str.Length()-1
DataTables("表A").DataRows(i)("第五列") = i
DataTables("表A").DataRows(i)("第六列") = str(i)
Next
End Select
[此贴子已经被作者于2023/8/11 11:43:23编辑过]
-- 发布时间：2023/8/11 11:45:00
--
For i As Integer = 0 To str.Length()-1
e.Table.Rows(i)("第五列") = i
e.Table.Rows(i)("第六列") = str(i)
Next
-- 发布时间：2023/8/11 11:49:00
--
好吧，明白了；谢谢；