Foxtable(狐表) → 用户栏目 → 专家坐堂 → 指定行


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

主题：指定行
帅哥哟，离线，有人找我吗？
大红袍
 小大  91楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/19 10:44:00 [只看该作者]

你在按钮那里加入一句currentChanged筛选的代码不就行了？

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/7/19 14:50:00 [只看该作者]

Dim Rg As MSExcel.Range = Ws1.Range(ws1.Cells(1,3))  '以这个指定的单元格为基准
Rg.EntireColumn.Insert(MSExcel.XlInsertShiftDirection.xlShiftToRight)  '在基准单元格左边插入一列
App.Visible = True
如何一次增加多列？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  93楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/19 15:17:00 [只看该作者]

for i as integer = 1 to 3

    Rg.EntireColumn.Insert(MSExcel.XlInsertShiftDirection.xlShiftToRight)  '在基准单元格左边插入一列

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/7/19 15:17:00 [只看该作者]

不可以一次增加的？

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/19 15:27:00 [只看该作者]

 必须一列一列插入。

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/7/19 15:39:00 [只看该作者]

    Dim Rg As MSExcel.Range = Ws1.Range(ws1.Cells(1,3+mm))  '以这个指定的单元格为基准
    For m As Integer = 1 To names1.count
        Rg.EntireColumn.Insert(MSExcel.XlInsertShiftDirection.xlShiftToRight)  '在基准单元格左边插入一列
        App.Visible = True
    Next
基准单元格这样写入代码为什么会错？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  97楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/19 15:41:00 [只看该作者]

App.Visible = True 这句写在循环的外面
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  98楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/7/19 15:42:00 [只看该作者]

Dim Rg As MSExcel.Range = Ws1.Range(ws1.Cells(1,3+mm))  '以这个指定的单元格为基准
只提示这句错误？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  99楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/19 15:44:00 [只看该作者]

 做实例发上来。

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2016/7/21 9:36:00 [只看该作者]

Dim drs As List(Of DataRow)
drs = DataTables("过导工资明细表").Select("姓名 = '" & dc1("姓名") & "'")
For Each r As DataRow In drs
     Dim fdr As DataRow = r.find("工资摘要 = '" & r2("工资摘要") & "'")
在select中筛选出来的，再在find中查找，请问老师应如何修改？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询