关于审核问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于审核问题

共有3897人关注过本帖树形打印复制链接主题：关于审核问题

lgz518

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

关于审核问题 发帖心情

Post By：2020/2/3 20:22:00 [显示全部帖子]

If User.Group = "经理" Then

If Tables("订单登记主表").Current.IsNull("反审意见") Then

Tables("订单登记主表").Current("审核") = Nothing

Tables("订单登记主表").Current("审核人") = Nothing

Tables("订单登记主表").Current("审核日期") = Nothing

Tables("订单登记主表").Current.Save()

Else

MessageBox.Show("此行已被批准,不能取消审核!")

End If

Else

MessageBox.show("你无取消审核权限!")

End If

问题1：上面代码执行后，审核人，审核日期的值被清空，是正确，但审核没有清空，审核是字符；如何解决？正确是把“审核人，审核日期，审核”的值被清空？

问题2：上面代码是单条操作，我想按条件进行批量操作，如何实现？

问题3：订单登记主表被设定不可编辑，在窗口上，有放一个TextBox1绑定“反审意见”字段，想让TextBox1为可编辑，由此改变绑定字段的内容，找视频和帮助都没找到，答案，请老师帮助，谢谢

lgz518

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/2/5 20:33:00 [显示全部帖子]

问题1：检查一下，发现“订单登记主表”中“审核”与“订单登记明细”中“状态”（字符）进行关联，如何改写代码？

问题2：使用select：下面代码没有反应？不执行

Dim drs As List(Of DataRow)

drs = DataTables("订单登记主表").Select("[审核] = ''" )

For Each dr As DataRow In drs

Tables("订单登记主表").Current("审核") = "已审核"

Tables("订单登记主表").Current("审核人") = User.Name

Tables("订单登记主表").Current("审核日期") = Date.Today()

Tables("订单登记主表").Current.Save()

lgz518

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/2/5 20:38:00 [显示全部帖子]

还有问题3：是关联表，在窗体上，正表，没有表格currentchanged事件，无法使用您下面方法：

不要绑定，使用代码给控件赋值和取值，如：表格currentchanged事件给TextBox1赋值“反审意见”单元格值；TextBox1的valuechanged事件给表格当前行“反审意见”单元格赋值

lgz518

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/2/6 16:14:00 [显示全部帖子]

问题1：怎么关联的？写了什么代码？

老师，可能我没表达清晰:

问题1：您代码1楼没问题，如果没有清空，肯定是有其他代码影响了，我说我查了，发现我是主表的审核和明细的状态字段进行关联，造成无法清空，后面

提问题是这个问题如何处理，能让它清空，（有方法就是主表的审核和明细的状态字段进行关联，把取消，但这个不是我要），谢谢

If User.Group = "经理" Then

If Tables("订单登记主表").Current.IsNull("反审意见") Then

Tables("订单登记主表").Current("审核") = Nothing

Tables("订单登记主表").Current("审核人") = Nothing

Tables("订单登记主表").Current("审核日期") = Nothing

Tables("订单登记主表").Current.Save()

Else

MessageBox.Show("此行已被批准,不能取消审核!")

End If

Else

MessageBox.show("你无取消审核权限!")

End If

lgz518

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/2/6 18:39:00 [显示全部帖子]

老师，我上实例，在窗口上的那样问题？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:关联演示.foxdb

lgz518

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/2/7 15:02:00 [显示全部帖子]

老师，实例我只是做个例子，主表和明细审核关联，也明细审核我是有做其他用途，所以那样设计.

问题1，单条审核如何实现？

问题2，批量审核如何实现？谢谢

lgz518

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/2/7 20:59:00 [显示全部帖子]

老师，实例我只是做个例子，主表和明细审核关联，也明细审核我是有做其他用途，所以那样设计.，所以要象上传实例，故前楼的代码执行不了。（前楼代码只针关联字段可用，而现在需求是要关联字段，所以它是执行不了？）

lgz518

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/2/10 14:57:00 [显示全部帖子]

老师，我们说和理解不一样，您可以把8楼实例进行写就是明白，谢谢

lgz518

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2020/2/11 16:50:00 [显示全部帖子]

老师，主表审核字段字符型，已审核，其明细表的审核字段字符型，也已审核，另一种，主表审核字段字符型，为空，其明细表的审核字段字符型，也已空。这里取消之前，主表和明细的审核字段字符型的关联设定。如何实现。谢谢

下一主题 >> << 上一主题

主题：关于审核问题