Foxtable(狐表)用户栏目专家坐堂 → [求助]下列代码不能自动更新,请专家指导,谢谢


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

主题:[求助]下列代码不能自动更新,请专家指导,谢谢

帅哥哟,离线,有人找我吗?
hrw68529
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1147 积分:8953 威望:0 精华:0 注册:2012/7/10 9:09:00
[求助]下列代码不能自动更新,请专家指导,谢谢  发帖心情 Post By:2024/12/11 14:44:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case  "天数","面试室","形不成竞争"
        Dim dr  As  DataRow = e.DataRow
        Dim pr  As  DataRow
        If dr.IsNull("天数") OrElse dr.IsNull("面试室")  Then
            dr("备注") =  Nothing
        Else
            Dim filter As String
            filter = "天数 = '" & dr("天数") & "' And 面试室 = '" & dr("面试室") & "'"
            pr =  DataTables("平均计算").Find(filter)
            If pr IsNot Nothing And dr("形不成竞争") = True Then
                dr("备注") = pr("面试室平均值")
            Else
                dr("备注") = Nothing
            End If
        End  If
    End  Select


 回到顶部
帅哥哟,离线,有人找我吗?
hrw68529
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1147 积分:8953 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2024/12/11 14:55:00 [显示全部帖子]

退不出了,循环了

 回到顶部