以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码运行结果异常  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187788)

--  作者:xvkewen
--  发布时间:2023/8/11 11:15:00
--  代码运行结果异常
如下代码,我想要达到的效果如第八、九列的效果,但实际输出(如第五、六列)有隔行遗漏是怎么回事?


图片点击可在新窗口打开查看此主题相关图片如下:代码.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:结果.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2023/8/11 11:16:28编辑过]

--  作者:有点蓝
--  发布时间:2023/8/11 11:22:00
--  
麻烦代码文字发上来
--  作者:xvkewen
--  发布时间: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

--  作者:xvkewen
--  发布时间:2023/8/11 11:49:00
--  
好吧,明白了;谢谢;