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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 审核多人提醒

共有2674人关注过本帖树形打印复制链接主题：审核多人提醒

有点蓝

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

加好友

发短信

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

Post By：2018/3/20 21:39:00 [只看该作者]

代码没有问题，不行具体哪里不行？代码产生什么效果，需要什么效果？截图说明

nuoyan88	小大 22楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/3/20 21:57:00 [只看该作者] 用户已被锁定

有点蓝

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

加好友

发短信

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

Post By：2018/3/20 22:11:00 [只看该作者]

Dim r As Row = Tables("工作记录总表").Current

If r IsNot Nothing AndAlso r.IsNull("相关人员")= False Then

Dim str As String = Tables("工作记录总表").Current("相关人员")

For Each s As String In str.split(",")

Dim nr As Row = Tables("工作记录评价表").AddNew

nr("填写人") = pr("填写人")

nr("今日工作内容") = pr("今日工作内容")

nr("是否完成") = pr("是否完成")

nr("计划外事件") = pr("计划外事件")

nr("明日工作计划") = pr("明日工作计划")

nr("项目代号") = pr("项目代号")

nr("项目类型") =pr ("项目类型")

nr("综合自评分") = pr("综合自评分")

nr("附件") = pr("文件")

nr("评价人员")= s

End If

nuoyan88	小大 24楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/3/20 22:28:00 [只看该作者] 用户已被锁定

有点蓝

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

加好友

发短信

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

Post By：2018/3/20 23:16:00 [只看该作者]

Case "保存"

e.Form.Controls("今日工作内容1").Select

e.Form.Controls("计划外事件1").Select

Dim r As Row = Tables("工作记录填写_记录总表").Current

Dim str As String = e.Form.Controls("相关人员1").text

If str > "" AndAlso r IsNot Nothing Then

msgbox(str)

For Each s As String In str.split(",")

Dim nr As Row = Tables("工作记录评价表").AddNew

nr("填写人") = r("填写人")

nr("今日工作内容") = r("今日工作内容")

nr("是否完成") = r("是否完成")

nr("计划外事件") = r("计划外事件")

nr("明日工作计划") = r("明日工作计划")

nr("项目代号") = r("项目代号")

nr("项目类型") = r ("项目类型")

nr("综合自评分") = r("综合自评分")

nr("附件") = r("文件")

nr("评价人员")= s

End If

DataTables("工作记录填写_记录总表").Save()

DataTables("工作记录填写_记录总表").Load

DataTables("工作记录填写_记录总表").addnew

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

总数 25 上一页 1 2 3

主题：审核多人提醒