Foxtable(狐表) → 用户栏目 → 专家坐堂 → 获取指定发放日期的数据


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

主题：获取指定发放日期的数据
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		获取指定发放日期的数据  发帖心情 Post By：2024/3/13 15:42:00 [显示全部帖子]

因本月发放工资与前期某月的发放数据差不多，所以我想设计一个窗体：输入本月发放日期，同时选择要提取的指定发放月份，点击“确定”后，上月工资就自动被复制到本月来，请问这个代码怎么写？请指教，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2024/3/13 17:12:00 [显示全部帖子]

Dim tx1 As WinForm.TextBox = e.Form.Controls("TextBox1") '输入要发放的日期
Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1") '输入要提取的日期
Dim t1 As String = tx1.Value
Dim t2 As String = cb1.Value
For Each dr1 As DataRow In DataTables("月报酬明细").Select("[发放日期] = t2")
    Dim dr2 As DataRow = DataTables("月报酬明细").AddNew()
    For Each dc As DataCol In DataTables("月报酬明细").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next
请问怎么把“发放日期”自动修改成“要发放的日期”？ 请指教，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2024/3/14 10:10:00 [显示全部帖子]

我日期时间格式设置的是：date,怎么预览显示的格式是datetime ?图片点击可在新窗口打开查看

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


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2024/3/14 10:11:00 [显示全部帖子]

还有点“确定”后，提示：.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,数据提取,Button1,Click
详细错误信息：
该字符串未被识别为有效的 DateTime。有一个未知单词(从索引 0 处开始)。
请问怎么修改？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2024/3/14 11:31:00 [显示全部帖子]

能查到在哪里出问题，但不会修改，请帮指导一下，谢谢！
Dim tx1 As WinForm.TextBox = e.Form.Controls("TextBox1") '输入要发放的日期
Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1") '输入要提取的日期
Dim t1 As String = tx1.Value
Dim t2 As String = cb1.Value
For Each dr1 As DataRow In DataTables("月报酬明细").Select("[发放日期] = #t2#")
    Dim dr2 As DataRow = DataTables("月报酬明细").AddNew()
    For Each dc As DataCol In DataTables("月报酬明细").DataCols
        dr2(dc.Name) = dr1(dc.name)
        dr2("发放日期") = " #t1#"
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2024/3/14 14:34:00 [显示全部帖子]

我日期时间格式设置的是：date,怎么预览显示的格式是datetime ?图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2024/3/14 16:09:00 [显示全部帖子]

图片点击可在新窗口打开查看

Dim cmb As WinForm.ComboBox
cmb = Forms("数据提取").Controls("ComboBox1")
cmb.ComboList = DataTables("月报酬明细").GetComboListString("发放日期")
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2024/3/14 16:19:00 [显示全部帖子]

在“月工资维护”窗体中，点击左侧的筛选树，可以按需动态筛选，但点击上侧“打印”按钮后，打印出的内容不是筛选的数据，而且不管如何筛选，打印的内容都是一样的，请问哪里设置有问题了？谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:村干部报酬管理.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2024/3/15 8:30:00 [显示全部帖子]

我把模板发给你，麻烦帮指点一下，谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:月发放明细表.xls
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 7 次数据查询