代码运行结果异常 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码运行结果异常

共有3585人关注过本帖树形打印复制链接主题：代码运行结果异常

xvkewen

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：593 积分：5562 威望：0 精华：0 注册：2012/6/29 19:11:00

代码运行结果异常 发帖心情

Post By：2023/8/11 11:15:00 [显示全部帖子]

如下代码，我想要达到的效果如第八、九列的效果，但实际输出（如第五、六列）有隔行遗漏是怎么回事？

此主题相关图片如下：代码.jpg

此主题相关图片如下：结果.jpg

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

xvkewen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：593 积分：5562 威望：0 精华：0 注册：2012/6/29 19:11:00

Post By：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)

End Select

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

xvkewen

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：593 积分：5562 威望：0 精华：0 注册：2012/6/29 19:11:00

Post By：2023/8/11 11:49:00 [显示全部帖子]

好吧，明白了；谢谢；

主题：代码运行结果异常