以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  批量导入的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77292)
--  作者：fjndwdx
--  发布时间：2015/11/15 15:52:00
--  批量导入的问题
批量导入城市名时，同一列中三行数据为‘保山市*’，‘洪雅县(眉山市)’，‘祁东县’，想实现数据导入后，能去掉*和只取（）内的数据，即导入数据为‘保山市’，‘眉山市’，‘祁东县’，
--  作者：大红袍
--  发布时间：2015/11/15 15:57:00
--  

导入后去掉。

 

For Each dr As DataRow In DataTables("表A").datarows
    If dr.IsNull("第一列") = False Then
        Dim s As String = dr("第一列")
        s = System.Text.RegularExpressions.Regex.Replace(s, "\\(+.*\\)+|\\*+", "")
        dr("第一列") = s
    End If
Next
--  作者：fjndwdx
--  发布时间：2015/11/15 16:22:00
--  回复：（大红袍）导入后去掉。 For Each dr ...
合并也一样吗？
--  作者：大红袍
--  发布时间：2015/11/15 16:23:00
--  
合并以后，执行上面的代码，就可以了。
--  作者：fjndwdx
--  发布时间：2015/11/15 16:35:00
--  回复：（fjndwdx）回复：（大红袍）导入后去掉。 ...
我在事件DataColChanging执行代码后，foxtabl就直接退出了
--  作者：大红袍
--  发布时间：2015/11/15 16:37:00
--  

如果写在datacolchanging事件，这样写

 

If e.DataCol.name = "第一列" AndAlso e.NewValue <> Nothing Then
    Dim s As String = e.NewValue
    s = System.Text.RegularExpressions.Regex.Replace(s, "\\(+.*\\)+|\\*+", "")
    e.NewValue = s
End If
--  作者：fjndwdx
--  发布时间：2015/11/15 16:54:00
--  回复：（大红袍）如果写在datacolchanging事件，这样写...

多谢