老师麻烦看一下代码错在哪 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师麻烦看一下代码错在哪

共有2925人关注过本帖树形打印复制链接主题：老师麻烦看一下代码错在哪

ls93005

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

加好友

发短信

等级：幼狐帖子：108 积分：1044 威望：0 精华：0 注册：2018/11/21 18:11:00

老师麻烦看一下代码错在哪 发帖心情

Post By：2019/10/19 21:10:00 [只看该作者]

If GangWeiLei = 3 Then

Dim LinShi As List(of DataRow) = DataTables("评分临时录入表").Select("")

Dim BuMen As String = DataTables("岗位及人员明细表").Find("姓名 = '" & Name & "'" )("隶属部门")

Dim LingDao As String = DataTables("部门信息表").Find("部门编码 = '" & Bumen & "'" )("分管领导")

Dim FeiLingDaos As List(of DataRow) = DataTables("岗位及人员明细表").Select("岗位类 = 2 And 姓名 <> '" & LingDao & "' ")

Dim flds As New List(of String )

For Each fld As DataRow In FeiLingDaos

flds.Add(fld("姓名"))

For Each ls As DataRow In LinShi

For Each fld As String In flds

If ls("被评测人") = fld Then

ls.Delete

End If

运行就提示“此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据”

ls93005

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

加好友

发短信

等级：幼狐帖子：108 积分：1044 威望：0 精华：0 注册：2018/11/21 18:11:00

Post By：2019/10/19 21:14:00 [只看该作者]

Dim FeiLingDaos As List(of DataRow) = DataTables("岗位及人员明细表").Select("岗位类 = 2 And 姓名 <> '" & LingDao & "' ")

For Each fld As DataRow In FeiLingDaos

For Each ls As DataRow In LinShi

If ls("被评测人") = fld("姓名") Then

ls.Delete

End If

有点酸

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

加好友

发短信

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2019/10/19 22:38:00 [只看该作者]

Dim FeiLingDaos As List(of DataRow) = DataTables("岗位及人员明细表").Select("岗位类 = 2 And 姓名 <> '" & LingDao & "' ")

For Each fld As DataRow In FeiLingDaos

DataTables("评分临时录入表").DeleteFor("被评测人 = '" & fld(“姓名”) & “‘”）

ls93005

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

加好友

发短信

等级：幼狐帖子：108 积分：1044 威望：0 精华：0 注册：2018/11/21 18:11:00

那这一段总是提示没有引用到实例。我看到是第二次循环为控制 发帖心情

Post By：2019/10/20 0:03:00 [只看该作者]

Dim mxtb As DataTable = DataTables("评测分数明细表")

Dim zgtb As DataTable = DataTables("职工表")

Dim ZhiGongL As List(of DataRow) = zgtb.Select("")

For Each ZG As DataRow In ZhiGongL

Dim RQ As Date = mxtb.Find("评分人 = '" & zg("职工姓名") & "'","评测年月 Desc")("评测年月")

If RQ <> Nothing Then

zg("评测表最后打分时间") = RQ

End If

要怎么避免错误提示？

hc-mall

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

加好友

发短信

等级：幼狐帖子：119 积分：918 威望：0 精华：0 注册：2018/8/30 9:53:00

Post By：2019/10/20 1:58:00 [只看该作者]

Dim mxtb As DataTable = DataTables("评测分数明细表")

Dim zgtb As DataTable = DataTables("职工表")

For Each ZG As DataRow In zgtb.datatows

Dim RQ As Date = mxtb.Find("评分人 = '" & zg("职工姓名") & "'","评测年月 Desc")

If RQ isnot Nothing Then

zg("评测表最后打分时间") = RQ("评测年月")

End If

-------------------------

班门弄斧，你试一下！

有点蓝

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

加好友

发短信

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

Post By：2019/10/20 21:51:00 [只看该作者]

Dim mxtb As DataTable = DataTables("评测分数明细表")

Dim zgtb As DataTable = DataTables("职工表")

For Each ZG As DataRow In zgtb.datatows

Dim RQ As DataRow = mxtb.Find("评分人 = '" & zg("职工姓名") & "'","评测年月 Desc")

If RQ isnot Nothing Then

zg("评测表最后打分时间") = RQ("评测年月")

End If

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

主题：老师麻烦看一下代码错在哪