| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]请老师指点这段代码错在哪里，谢谢！！！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108306) |
| -- 作者：evolymft -- 发布时间：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
|
| -- 作者：有点甜 -- 发布时间：2017/10/19 22:30:00 -- Dim SXZ As String= RibbonTabs("日常工作").Groups("功能组1").Items("文本框").text If sxz = Nothing Then Tables("工资库").Filter = "" Else Tables("工资库").Filter = " 岗位等级 = " & SXZ & " Or 职称 Like \'%" & SXZ & "%\' Or 职工姓名 Like \'%" & SXZ & "%\'" End If |
| -- 作者：evolymft -- 发布时间：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 -- 发布时间：2017/10/19 22:47:00 -- 但是后面二个模糊查询就要出错。请老师指点为谢。 |
| -- 作者：有点甜 -- 发布时间：2017/10/19 22:52:00 -- Dim SXZ As String= RibbonTabs("日常工作").Groups("功能组1").Items("文本框").text If sxz = Nothing Then Tables("工资库").Filter = "" Else Tables("工资库").Filter = "convert(岗位等级,\'System.String\') like \'%" & SXZ & "%\' Or 职称 Like \'%" & SXZ & "%\' Or 职工姓名 Like \'%" & SXZ & "%\'" End If |
| -- 作者：evolymft -- 发布时间：2017/10/20 16:48:00 -- 谢谢老师，再请问如何获取已锁定行的单元格的值。例如:上月工资日期是2017-09-01，我锁定行后获取的值就不是2017-09-01。谢谢老师，祝你及家人:周末愉快?? |
| -- 作者：有点甜 -- 发布时间：2017/10/20 16:55:00 -- 贴出你写的代码。
是否锁定行，获取的方式都是一样的。 |
| -- 作者：evolymft -- 发布时间：2017/10/21 9:14:00 -- Dim fxny As Date = DataTables("工资库").dataRows(DataTables("工资库").dataRows.Count - 1)("发薪年月") Dim newfxny As Date = fxny.AddMonths(1) \'累加1个月 老师:就是这段代码，工资库表已禁止复制、粘贴，不知有没有影响。谢谢。
|
| -- 作者：有点蓝 -- 发布时间：2017/10/21 9:24:00 -- 代码获取的是最后一行的值，和锁定有什么关系？ |
| -- 作者：evolymft -- 发布时间：2017/10/21 9:31:00 -- Dim usernam As WinForm.ComboBox = Forms("用户登录").Controls("UserName") StatusBar.Message1="当前用户: " & usernam.text & " StatusBar.DefaultMessage=StatusBar.Message1 老师：这段代码提示窗体已关闭，无法获取相关内容。Forms("用户登录")要关闭，自己做的登录窗体，如何取得登录用户名。谢谢。
|