Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]为何拷备上一年度资料顺序会乱跳?


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

主题：[求助]为何拷备上一年度资料顺序会乱跳?
帅哥哟，离线，有人找我吗？
tennis
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00 		[求助]为何拷备上一年度资料顺序会乱跳?  发帖心情 Post By：2019/5/23 13:24:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：err1.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工作日期.foxdb
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111419 积分：567171 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/5/23 13:52:00 [只看该作者]

            For Each dr2 As DataRow In DataTables("假期安排").Select("convert([起日],'System.String')  like " & txt1 ,"起日") '去年
 回到顶部
帅哥哟，离线，有人找我吗？
tennis
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00 		  发帖心情 Post By：2019/5/23 14:09:00 [只看该作者]

3Q!!

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


加好友 发短信
等级：六尾狐 帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00 		  发帖心情 Post By：2019/5/23 14:50:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工作日期 .foxdb

为何DataTables("假期安排").DataColS("天数").RaiseDataColChanged() DataTables("假期安排").SAVE() 没作用?

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/23 16:41:00 [只看该作者]

不要用表达式列

 

http://www.foxtable.com/webhelp/scr/1380.htm

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


加好友 发短信
等级：六尾狐 帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00 		  发帖心情 Post By：2019/5/23 17:07:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工作日期 .foxdb

改成非表达式列,一样无作用

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/23 18:19:00 [只看该作者]

 

这个代码删除 Return 即可

 

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


加好友 发短信
等级：六尾狐 帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00 		  发帖心情 Post By：2019/5/24 7:05:00 [只看该作者]

请问那个代码删除? 无法储存.
[此贴子已经被作者于2019/5/24 7:06:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/24 9:17:00 [只看该作者]

Dim dbt1 As DataTable = DataTables("假期安排")
Dim dbt2 As DataTable = DataTables("月出勤表n")
Dim d1 As Date = Date.Today
Dim mYYYY As Integer = d1.Year

Dim mMONTH As Integer = d1.Month
Dim mDAY As Integer = d1.Day
Dim txt As String = "'%" & cstr(mYYYY) & "%'" '今年
Dim txt1 As String = "'%" & cstr(mYYYY-1) & "%'" '去年
Dim LP As Integer
Dim dr As DataRow = DataTables("月出勤表n").Find("YYYY = '" & mYYYY & "'" )
If dr IsNot Nothing'如果找到,则设置各列内容
    MessageBox.show(mYYYY & " 月出勤表已經存在,不可重复,請查明!!") '可强迫删旧的重新产生
    Return
Else
    Dim dr1 As DataRow = DataTables("假期安排").Find("convert([起日],'System.String')  like " & txt )
    If dr1 IsNot Nothing'如果月出勤表找到已建,则建立新度月出勤表
        MessageBox.show(mYYYY & "已建立假期安排!!")
        MessageBox.Show("是否建立新度月出勤表?!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
        Return
    Else
        Dim Result As DialogResult
        Result = MessageBox.Show("是否拷备去年假期,再修改?!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            For Each dr2 As DataRow In DataTables("假期安排").Select("convert([起日],'System.String')  like " & txt1 ,"[起日]") '去年
                Dim mNEWROW As DataRow = dbt1.ADDNEW()
                mNEWROW("安排项目") = dr2("安排项目")
                mNEWROW("起日") = cdate(cstr(dr2("起日").year+1) & "-" & dr2("起日").month & "-" & dr2("起日").day )
                mNEWROW("天数") = dr2("天数")
               'mNEWROW("迄日") =  cdate(cstr(dr2("迄日").year+1) & "-" & dr2("迄日").month & "-" & dr2("迄日").day )
            Next
        End If
    End If
End If
'DataTables("假期安排").DataColS("天数").RaiseDataColChanged()
DataTables("假期安排").SAVE()
 回到顶部
帅哥哟，离线，有人找我吗？
tennis
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1433 积分：10763 威望：0 精华：0 注册：2013/3/29 10:23:00 		  发帖心情 Post By：2019/5/24 11:41:00 [只看该作者]

3Q!!多了个return

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