不能用设置的方式，你要用代码处理才好

http://www.foxtable.com/help/topics/1459.htm

此主题相关图片如下：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

尝试执行

Tables("宽带帐号割接回访表").Filter = Tables("宽带帐号割接回访表").Filter

或者

Dim temp As String = Tables("宽带帐号割接回访表").Filter

Tables("宽带帐号割接回访表").Filter = ""

Tables("宽带帐号割接回访表").Filter = temp

【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