Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请老师指点这段代码错在哪里，谢谢！！！


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

主题：[求助]请老师指点这段代码错在哪里，谢谢！！！
帅哥哟，离线，有人找我吗？
evolymft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		[求助]请老师指点这段代码错在哪里，谢谢！！！  发帖心情 Post By：2017/10/19 22:27:00 [显示全部帖子]

Dim SXZ As RibbonMenu.TextBox = RibbonTabs("日常工作").Groups("功能组1").Items("文本框").text
If sxz Is Nothing Then
    Tables("工资库").Filter = ""
Else
    Tables("工资库").Filter = " 岗位等级 = " & SXZ & " Or 职称 Like '%" & SXZ & "%' Or 职工姓名 Like '%" & SXZ & "%'"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/10/19 22:33:00 [显示全部帖子]

Dim SXZ As RibbonMenu.TextBox = RibbonTabs("日常工作").Groups("功能组1").Items("文本框")
If SXZ.text Is Nothing Then
    Tables("工资库").Filter = ""
Else
    Tables("工资库").Filter = " 岗位等级 = " & SXZ.text & " Or 职称 Like '%" & SXZ.text & "%' Or 职工姓名 Like '%" & SXZ.text & "%'"
End If
改成这样就没错误提示了。
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/10/19 22:47:00 [显示全部帖子]

但是后面二个模糊查询就要出错。请老师指点为谢。
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/10/20 16:48:00 [显示全部帖子]

谢谢老师，再请问如何获取已锁定行的单元格的值。例如:上月工资日期是2017-09-01，我锁定行后获取的值就不是2017-09-01。谢谢老师，祝你及家人:周末愉快??

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


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/10/21 9:14:00 [显示全部帖子]

Dim fxny As Date  = DataTables("工资库").dataRows(DataTables("工资库").dataRows.Count - 1)("发薪年月")
        Dim newfxny As Date = fxny.AddMonths(1)   '累加1个月
老师:就是这段代码，工资库表已禁止复制、粘贴，不知有没有影响。谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/10/21 9:31:00 [显示全部帖子]

Dim usernam As WinForm.ComboBox = Forms("用户登录").Controls("UserName")
StatusBar.Message1="当前用户: " & usernam.text & " 
StatusBar.DefaultMessage=StatusBar.Message1

老师：这段代码提示窗体已关闭，无法获取相关内容。Forms("用户登录")要关闭，自己做的登录窗体，如何取得登录用户名。谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/10/21 9:52:00 [显示全部帖子]

回复9楼提问：
我做的是工资，通过锁定行后，不能再更改工资数据。
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/10/21 10:09:00 [显示全部帖子]

Dim fxny As Date  = DataTables("工资库").dataRows(DataTables("工资库").dataRows.Count - 1)("发薪年月")
        Dim newfxny As Date = fxny.AddMonths(1)   '累加1个月
假如现在最后一行的值是2017-09-01
但是现在newfxny的值（累加1个月）有时是2017-09-01，有时是2017-10-01
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/10/21 10:13:00 [显示全部帖子]

再请问：
表中的逻辑值列，可以点一下列标题实现全选，再点一下就取消全选。
老师别闲我烦哦，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2017/10/21 10:28:00 [显示全部帖子]

谢谢老师：请再指点15楼的问题。

 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询