Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
seopain
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：166 威望：0 精华：0 注册：2015/7/5 16:30:00 		[求助]  发帖心情 Post By：2015/7/8 10:14:00 [只看该作者]

Select Case e.DataCol.Name
    Case "姓名", "部门", "状态"
        If e.DataRow.IsNull("姓名") = False AndAlso e.DataRow.IsNull("部门") = False Then
            If e.DataRow("部门") = "编辑部" Then
                If DataTables("编辑信息表").DataCols.Contains(e.DataRow("姓名") & "_上传") = False Then
                    Dim Builder As New ADOXBuilder("test")
                    Builder.Open() '打开ADOXBuilder
                    With Builder.Tables("编辑信息表")
                        .AddColumn(e.DataRow("姓名") & "_上传",ADOXType.String, 12)
                        .AddColumn(e.DataRow("姓名") & "_采用",ADOXType.String, 12)
                    End With
                    Builder.Close() '关闭ADOXBuilder
                    DataTables.Unload("编辑信息表")
                    DataTables.Load("编辑信息表")
                End If
            End If
        End If
End Select

Select Case e.DataCol.Name
    Case "状态"
        If e.DataRow("状态") = "离职"
            Dim Builder As New ADOXBuilder("test")
            With Builder.Tables("dbo.编辑信息表")
                Builder.Open() '打开ADOXBuilder
                .DeleteColumn(e.DataRow("姓名") & "_上传")
                .DeleteColumn(e.DataRow("姓名") & "_采用")
            End With
            Builder.Close() '关闭ADOXBuilder
            DataTables.Unload("dbo.编辑信息表")
            DataTables.Load("dbo.编辑信息表")
        End If
End Select
为什么我更改成为离职状态的时候会弹错误
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/8 10:18:00 [只看该作者]

Select Case e.DataCol.Name
    Case "状态"
        If e.DataRow("状态") = "离职"
            Dim Builder As New ADOXBuilder("test")
            With Builder.Tables("编辑信息表")
                Builder.Open() '打开ADOXBuilder
                .DeleteColumn(e.DataRow("姓名") & "_上传")
                .DeleteColumn(e.DataRow("姓名") & "_采用")
            End With
            Builder.Close() '关闭ADOXBuilder
            DataTables.Unload("编辑信息表")
            DataTables.Load("编辑信息表")
        End If
End Select

 回到顶部
帅哥哟，离线，有人找我吗？
seopain
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：166 威望：0 精华：0 注册：2015/7/5 16:30:00 		  发帖心情 Post By：2015/7/8 10:27:00 [只看该作者]

改了以后还是出现这个提示

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.11.11.1
错误所在事件：表，员工，DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/8 10:30:00 [只看该作者]

Select Case e.DataCol.Name
    Case "姓名", "部门", "状态"
        If e.DataRow.IsNull("姓名") = False AndAlso e.DataRow.IsNull("部门") = False Then
            If e.DataRow("部门") = "编辑部" Then
                If e.DataRow("状态") = "离职"
                    If DataTables("编辑信息表").DataCols.Contains(e.DataRow("姓名") & "_上传") Then
                        Dim Builder As New ADOXBuilder("test")
                        With Builder.Tables("编辑信息表")
                            Builder.Open() '打开ADOXBuilder
                            .DeleteColumn(e.DataRow("姓名") & "_上传")
                            .DeleteColumn(e.DataRow("姓名") & "_采用")
                        End With
                        Builder.Close() '关闭ADOXBuilder
                        DataTables.Unload("编辑信息表")
                        DataTables.Load("编辑信息表")
                    End If
                Else
                    If DataTables("编辑信息表").DataCols.Contains(e.DataRow("姓名") & "_上传") = False Then
                        Dim Builder As New ADOXBuilder("test")
                        Builder.Open() '打开ADOXBuilder
                        With Builder.Tables("编辑信息表")
                            .AddColumn(e.DataRow("姓名") & "_上传",ADOXType.String, 12)
                            .AddColumn(e.DataRow("姓名") & "_采用",ADOXType.String, 12)
                        End With
                        Builder.Close() '关闭ADOXBuilder
                        DataTables.Unload("编辑信息表")
                        DataTables.Load("编辑信息表")
                    End If
                End If
            End If
        End If
End Select

 回到顶部
帅哥哟，离线，有人找我吗？
seopain
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：166 威望：0 精华：0 注册：2015/7/5 16:30:00 		  发帖心情 Post By：2015/7/8 11:01:00 [只看该作者]


还是有错 帮我看一下吧  
[此贴子已经被作者于2015/7/8 11:33:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/8 11:26:00 [只看该作者]

Select Case e.DataCol.Name
    Case "姓名", "部门", "状态"
        If e.DataRow.IsNull("姓名") = False AndAlso e.DataRow.IsNull("部门") = False Then
            If e.DataRow("部门") = "编辑部" Then
                If e.DataRow("状态") = "离职"
                    If DataTables("编辑信息表").DataCols.Contains(e.DataRow("姓名") & "_上传") Then
                        Dim Builder As New ADOXBuilder("test")
                        Builder.Open() '打开ADOXBuilder
                        With Builder.Tables("编辑信息表")
                            .DeleteColumn(e.DataRow("姓名") & "_上传")
                            .DeleteColumn(e.DataRow("姓名") & "_采用")
                        End With
                        Builder.Close() '关闭ADOXBuilder
                        DataTables.Unload("编辑信息表")
                        DataTables.Load("编辑信息表")
                    End If
                Else
                    If DataTables("编辑信息表").DataCols.Contains(e.DataRow("姓名") & "_上传") = False Then
                        Dim Builder As New ADOXBuilder("test")
                        Builder.Open() '打开ADOXBuilder
                        With Builder.Tables("编辑信息表")
                            .AddColumn(e.DataRow("姓名") & "_上传",ADOXType.String, 12)
                            .AddColumn(e.DataRow("姓名") & "_采用",ADOXType.String, 12)
                        End With
                        Builder.Close() '关闭ADOXBuilder
                        DataTables.Unload("编辑信息表")
                        DataTables.Load("编辑信息表")
                    End If
                End If
            End If
        End If
End Select

 回到顶部
帅哥哟，离线，有人找我吗？
seopain
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：166 威望：0 精华：0 注册：2015/7/5 16:30:00 		  发帖心情 Post By：2015/7/8 11:34:00 [只看该作者]

这个我都不好意思了.麻烦老师了.

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05688 秒, 4 次数据查询