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


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

主题:获取指定发放日期的数据

帅哥哟,离线,有人找我吗?
rgbjwjb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

因本月发放工资与前期某月的发放数据差不多,所以我想设计一个窗体:输入本月发放日期,同时选择要提取的指定发放月份,点击“确定”后,上月工资就自动被复制到本月来,请问这个代码怎么写?请指教,谢谢!


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/13 15:59:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
请问怎么把“发放日期”自动修改成“要发放的日期”? 请指教,谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/13 17:16:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 处开始)。
请问怎么修改?谢谢!


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/14 10:22:00 [只看该作者]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/14 11:40:00 [只看该作者]

这个帮助建议每天看一遍:http://www.foxtable.com/webhelp/topics/1284.htm,看懂了能够提高50%的编码效率


此主题相关图片如下:1.png
按此在新窗口浏览图片


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

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
总数 17 1 2 下一页