Foxtable(狐表) → 用户栏目 → 专家坐堂 → 随时间自动修改分类


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

主题：随时间自动修改分类
美女呀，离线，留言给我吧！
采菊东篱下
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		随时间自动修改分类  发帖心情 Post By：2022/2/10 12:01:00 [显示全部帖子]

我在全局变量中设定了cljbxxsj变量，然后在项目属性的GlobalVariableChanged事件中写下下面的代码，想实现当日期变量为当前日期，基本信息表中的分类随时间变化而变，当缴费情况表中对应的车牌号最后一个月的缴费_月租_止计日期大于等于当是前日期的前一个月，且缴费_月租_缴费金额大于0，车辆基本信息表中的分类为月租停车，否则为临时停车收费，我这样写报错：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20220210115332.png
图片点击可在新窗口打开查看
Vars("cljbxxsj") = Today.AddMonths(-1)
Dim dt As DataRow = DataTables("缴费情况").SQLFind("[缴费_月租_止计日期] >= #" & Vars("cljbxxsj") & "# And [缴费_月租_缴费金额] >" & 0 & " And [车牌号码] = '" & DataTables("车辆基本信息").DataRow("车牌号码") & "'")
If dt IsNot Nothing Then
    DataTables("车辆基本信息").DataRow("分类") = "月租停车"
Else
    DataTables("车辆基本信息").DataRow("分类") = "临时停车"
End If
DataTables("车辆基本信息").DataCols("分类").RaiseDataColChanged()


[此贴子已经被作者于2022/2/10 12:11:25编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2022/2/10 12:29:00 [显示全部帖子]

Vars("cljbxxsj") = Today.AddMonths(-1)
For Each ds As DataRow In DataTables("车辆基本信息").DataRows
    Dim dt As DataRow = DataTables("缴费情况").SQLFind("[缴费_月租_止计日期] >= #" & Vars("cljbxxsj") & "# And [缴费_月租_缴费金额] >" & 0 & " And [车牌号码] = '" & ds("车牌号码") & "'")
    If dt IsNot Nothing Then
        ds("分类") = "月租停车"
    Else
        ds("分类") = "临时停车"
    End If
Next
DataTables("车辆基本信息").Save()
基本信息表的分类列没有起变化，安理最迟一天的缴费_月租_止计日期是2021年是9月30日，与当前日期对比，分类应全变为临时停车，但现在没改变。
[此贴子已经被作者于2022/2/10 12:41:08编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2022/2/10 13:13:00 [显示全部帖子]

我在命令窗口执行这代码没问题的，基本信息表立马执行了，为什么写在项目属性的GlobalVariableChanged事件不灵了？

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2022/2/10 14:07:00 [显示全部帖子]

如果我想当时间发生变化基本信息表中的分类自动改变，代码应写在哪？

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2022/2/10 14:10:00 [显示全部帖子]

写在AfterOpenProject事件中

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2022/2/10 16:25:00 [显示全部帖子]

当前时间发生变化，缴费情况表中对应的车牌号最后一个月的缴费_月租_止计日期大于等于当是前日期的前一个月，且缴费_月租_缴费金额大于0，车辆基本信息表中的分类为月租停车，否则为临时停车收费。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2022/2/10 16:43:00 [显示全部帖子]

那我把代码放到AfterOpenProject事件对了，不可能用按钮更新，一般人没这意识去按按钮，又或许忘了按，数据就不会更新，自动更新最人性化。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2022/2/11 18:31:00 [显示全部帖子]

是否基本信息表设置了如果缴费情况表已引用数据,不允许修改，红色代码写在AfterOpenProject事件中没改变。
Select Case e.DataCol.name
    Case "住址_巷","住址_号","住址_房","固定电话","手机号码","车牌号码","姓名"
        Dim dt As DataRow
        dt = DataTables("缴费情况").SQLfind("[车牌号码] = '" & e.DataRow("车牌号码") & "'")
        If dt IsNot Nothing Then
            e.Cancel = True
        End If
End Select

Dim d As Date = Today.AddMonths(-1)
For Each ds As DataRow In DataTables("车辆基本信息").DataRows
    Dim dt As DataRow = DataTables("缴费情况").SQLFind("[缴费_月租_止计日期] >= #" & d & "# And [缴费_月租_缴费金额] >" & 0 & " And [车牌号码] = '" & ds("车牌号码") & "'")
    If dt IsNot Nothing Then
        ds("分类") = "月租停车"
    Else
        ds("分类") = "临时停车"
    End If
Next
DataTables("车辆基本信息").Save()
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2022/2/12 10:16:00 [显示全部帖子]

这样写直接报错

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20220212101615.png
图片点击可在新窗口打开查看

Dim d As Date = Today.AddMonths(-1)
For Each ds As DataRow In DataTables("车辆基本信息").DataRows
    Dim dt As DataRow = DataTables("缴费情况").SQLFind("[缴费_月租_止计日期] >= #" & d & "# And [缴费_月租_缴费金额] >" & 0 & " And [车牌号码] = '" & ds("车牌号码") & "'")
    If dt IsNot Nothing Then
        ds("分类") = "月租停车"
    Else
        ds("分类") = "临时停车"
    End If
    DataTables("车辆基本信息").SQLUpdate(ds)
Next
[此贴子已经被作者于2022/2/12 10:17:56编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2022/2/12 10:44:00 [显示全部帖子]

红色代码没问题了，是我录入了符合条件的数据，因此没变化。

 回到顶部
总数 11 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.04688 秒, 5 次数据查询