Foxtable(狐表) → 用户栏目 → 专家坐堂 → 向下移一行


  共有6544人关注过本帖树形打印复制链接

主题：向下移一行
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/4 23:22:00 [显示全部帖子]

给数据过渡表勾选插入行标记默认就会添加_sortkey列了，不需要手动添加：http://www.foxtable.com/webhelp/topics/1791.htm

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/5 10:30:00 [显示全部帖子]

勾选了肯定可以移动行。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/5 11:03:00 [显示全部帖子]

都报错了后面的代码肯定无法执行。

【不存在"Table'老人组'"控件】说明定义的控件名称和使用的控件名称不一致。

您的代码太复杂，我没有这个时间慢慢去研究，业务的逻辑请自行调试和解决
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/5 11:32:00 [显示全部帖子]

我测试可以移动行，除非您操作的不是table

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/5 12:03:00 [显示全部帖子]

勾选了插入行标记列后我测试没有问题

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/5 14:03:00 [显示全部帖子]

                            With dt.Table
msgbox(ia1+1)
msgbox(.Position + 1)
                                .Rows(ia1+1).Move(.Position + 1)
                            End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/5 14:17:00 [显示全部帖子]

出错是因为sqlfind查询结果没有做判断。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/5 14:31:00 [显示全部帖子]

前面都用了，后面再判断有啥用

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/5 15:35:00 [显示全部帖子]

                            With dt.Table
msgbox(ia1+1)能不能弹出来
msgbox(.Position + 1)
                                .Rows(ia1+1).Move(.Position + 1)
                            End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/5 16:16:00 [显示全部帖子]

说明前面的if判断不符合条件，所以不执行里面的代码

     For ia1 As Integer = 0 To dt.Table.rows.count-1 Step 2
msgbox(dt.Table.rows.count)
                If ia1+1 < dt.Table.Rows.Count Then
msgbox(drs2.Count)
                    For ia As Integer = 0 To drs2.Count - 1
                        Dim dr2a1 As DataRow = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & Cstr(Val(di2)-1) & "' And [分组] = '" & Str & " And ([编号] = '" & dt.Table.Rows(ia1)("编号") & "'or [姓名] = '" & dt.Table.Rows(ia1)("姓名") & "')")
msgbox(dr2a1 IsNot Nothing)
                        If dr2a1 IsNot Nothing Then
                            Dim dr2a2 As DataRow = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & Cstr(Val(di2)-1) & "' And [分组] = '" & Str & "' And [排序] = " & dr2a1("排序") & " And ([编号] <> '" & dt.Table.Rows(ia1)("编号") & "'or [姓名] <> '" & dt.Table.Rows(ia1)("姓名") & "')")      
msgbox(dr2a2 IsNot Nothing)                                      
                            msgbox(ia1+1)
                            If dr2a2 IsNot Nothing Then
                                With dt.Table
                                    msgbox(.Position + 1)
 回到顶部
总数 32 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询