以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  删除单元格文本空格？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120676)
--  作者：ZJZK2018
--  发布时间：2018/6/21 17:25:00
--  删除单元格文本空格？
老师下面的代码在"评标办法"列中输入空格时，还是删除，如何处理？

\'\'\'===============除nms以外字符列新值中删除空格===============
Dim nms() As String = {"评标办法","工程规模","备注"}
For Each dc As DataCol In e.DataTable.DataCols
    For Each nm As String In nms
        If dc.IsString  AndAlso dc.Name <> nm Then
            e.NewValue = e.NewValue.Replace(" ","")
        End If
    Next
Next
--  作者：有点甜
--  发布时间：2018/6/21 17:55:00
--  

datacolchanging，是ing事件


If dc.IsString Then

   Dim nms() As String = {"评标办法","工程规模","备注"}
    If array.indexof(nms,  dc.name) < 0 Then
        e.NewValue = cstr(e.NewValue).Replace(" ","")
    End If
End If
--  作者：ZJZK2018
--  发布时间：2018/6/23 1:26:00
--  
老师你好：

DataColChanging事件中：


If e.DataCol.IsString Then
    Dim nms() As String = {"客户名称","手机号码","备注"}
    If array.indexof(nms, e.DataCol.name) < 0 Then
        e.NewValue = cstr(e.NewValue).Replace(" ","")
    End If
End If

上面代码在删除单元格字符时，出现错误提示，


.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：表，项目联系人，DataColChanging
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

[此贴子已经被作者于2018/6/23 1:27:38编辑过]
--  作者：有点蓝
--  发布时间：2018/6/23 9:04:00
--  
If e.DataCol.IsString Then
    Dim nms() As String = {"客户名称","手机号码","备注"}
    If array.indexof(nms, e.DataCol.name) < 0 AndAlso e.NewValue > "" Then
        e.NewValue = e.NewValue.Replace(" ","")
    End If
End If