|
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
|
加好友 
发短信
Post By：2015/7/8 10:18:00 [显示全部帖子]
