以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎样分类替换单元格的特定内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124683)

--  作者:qjm107
--  发布时间:2018/9/11 22:04:00
--  [求助]怎样分类替换单元格的特定内容
各位专家们
      我现在有一个任务,在我上传的附件“替换实际号牌”中,要把“合并号牌”列中的单元格中的的第一位数字“1”替换为“大车云”,“2”替换为“小车云”,“3”替换为“摩托云”,“4”替换为“挂车云”,如“实际号牌”列中的前4个所示,请问这种怎样实现?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:替换实际号牌.table


--  作者:有点蓝
--  发布时间:2018/9/11 22:18:00
--  
下面只做了2种情况,其余参考着自己写

datacolchanged事件

If e.DataCol.Name = "合并号牌" AndAlso e.DataRow.IsNull("合并号牌")= False
    Dim s As String= e.DataRow("合并号牌")
    Select Case s(0)
        Case "1"
            e.DataRow("实际号牌") = "大车云" & s.SubString(1)
        Case "2"
            e.DataRow("实际号牌") = "小车云" & s.SubString(1)
    End Select
End If