随时间自动修改分类 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3732人关注过本帖树形打印复制链接主题：随时间自动修改分类

采菊东篱下

小大 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

加好友

发短信

等级：超级版主帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/2/10 12:07:00 [只看该作者]

DataTables("车辆基本信息").DataRow("车牌号码")

DataTable只有DataRows属性，没有DataRow属性，如果是当前行，使用table的current

采菊东篱下

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

DataTables("车辆基本信息").Save()

基本信息表的分类列没有起变化，安理最迟一天的缴费_月租_止计日期是2021年是9月30日，与当前日期对比，分类应全变为临时停车，但现在没改变。

[此贴子已经被作者于2022/2/10 12:41:08编辑过]