主题：[求助] 列属性 过滤条件问题

此主题相关图片如下：360截图20160118161618092.jpg

点击【确定】项目就自动关闭啦

此主题相关图片如下：360截图20160617113828749.jpg

 

【保存修改】按钮当前的命令如下：

 

 

Dim Result As DialogResult
Result = MessageBox.Show("是否保存对【当前行数据】的修改?"& vbcrlf & "确定修改请按  [是]" & vbcrlf & "继续修改请按  [否]", "非常关键提醒", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If Result = DialogResult.Yes Then
   

Tables("宽带帐号割接回访表").Current("编辑锁定") = False
   
    DataTables("宽带帐号割接回访表").Save()
   
    Dim p1 As object = Forms("宽带帐号割接回访主窗口").Controls("Panel4")
    p1.Visible = False
    Forms("宽带帐号割接回访主窗口").Controls("Panel3").Width=Forms("宽带帐号割接回访主窗口").Controls("Panel2").Width-Forms("宽带帐号割接回访主窗口").Controls("Panel4").Width
   
   
Else
End If
vars("stop") = True

Dim dt As DataTable = DataTables("宽带帐号割接回访表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "全部统计|工单责任人|客户负责人|是否短信通知|关停情况|回访_结果")

 

（意思就是当点击【保存修改】按钮时，能够重新筛选当前我所选择的【工单责任人|客户负责人|是否短信通知|关停情况|回访_结果】；把已经被修改了【回访_结果】的行给隐藏掉）

 

trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
   
    If nd.Level = 0 Then '如果是二级节点
        nd.Text = "【统计:全部["& dt.Compute("Count(割接情况)"," 割接情况 <> '' ") & "] 已割接[" & dt.Compute("Count(割接情况)", " 割接情况 = '已割接' ") & "] 未割接[" & dt.Compute("Count(割接情况)", " 割接情况 = '未割接' ")  & "]】"       
    End If   
    If nd.Level = 1 Then '如果是二级节点
        nd.Text = "【"& dt.Compute("Count(工单责任人)", " 割接情况 =  '未割接'  and 工单责任人 =  '" & nd.DataRow("工单责任人") & "'   ") & "】" & nd.Text
    End If
    If nd.Level = 2 Then '如果是二级节点
        nd.Text = "【"& dt.Compute("Count(割接情况)", " 割接情况 =  '未割接'  and 工单责任人 =  '" & nd.DataRow("工单责任人") & "' and  客户负责人 =  '" & nd.DataRow("客户负责人") & "'   ") & "】" & nd.Text
    End If
    If nd.Level = 3 Then '如果是二级节点
        nd.Text = "【"& dt.Compute("Count(割接情况)", " 割接情况 =  '未割接'  and 工单责任人 =  '" & nd.DataRow("工单责任人") & "'and  客户负责人 =  '" & nd.DataRow("客户负责人") & "' and  是否短信通知 =  '" & nd.DataRow("是否短信通知") & "'   ") & "】" & nd.Text
    End If
    If nd.Level = 4 Then '如果是二级节点
        nd.Text = "【"& dt.Compute("Count(割接情况)", " 割接情况 =  '未割接'  and 工单责任人 =  '" & nd.DataRow("工单责任人") & "'and  客户负责人 =  '" & nd.DataRow("客户负责人") & "' and 是否短信通知 =  '" & nd.DataRow("是否短信通知") & "'  and   关停情况=  '" & nd.DataRow("关停情况") & "' ") & "】" & nd.Text
    End If    
    If nd.Level = 5 Then '如果是二级节点
        nd.Text =  "【"& dt.Compute("Count(回访_结果)", " 割接情况 =  '未割接'  And  工单责任人 =  '" & nd.DataRow("工单责任人") & "' and  是否短信通知 =  '" & nd.DataRow("是否短信通知") & "'  and  客户负责人 =  '" & nd.DataRow("客户负责人") & "'and  关停情况 =  '" & nd.DataRow("关停情况") & "'   And  回访_结果 =  '" & nd.DataRow("回访_结果") & "' ") & "】" & nd.Text
    End If
      
Next
trv.ResumeRedraw '恢复绘制目录树

 

 

vars("stop") = False

 

 

 

 

【TBOSS核对时间】列格式为 2016-06-23 11：23   

 

导入按钮中以下命令导入后格式为 2016-06-23  该怎么修改？

 

Dim nms() As String = {"铁通宽带帐号","TBOSS状态","TBOSS核对时间"}

 

准备导入的数据中【TBOSS核对时间】列格式为 2016-06-23 11：23   

 

系统中【TBOSS核对时间】列的格式为：DateTime

 

【导入按钮】的命令如下、但是导入后的数据为 2016-06-23 00:00    我的命令该怎么修改？

 

Dim dlg As New OpenFileDialog '定义一个新的
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("TBOSS数据表").StopRedraw()
      Dim nms() As String = {"铁通宽带帐号","TBOSS状态","TBOSS核对时间"}
       For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As Row = Tables("TBOSS数据表").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("TBOSS数据表").ResumeRedraw()
End If