主题：半角能转全角吗

For Each dr As DataRow In DataTables("工序单价").Select("完成人员 is not null")
    Dim ary() As String = dr("完成人员").split(",")
    For Each s As String In ary
        Dim ndr As DataRow = DataTables("工序单价").addnew
        Dim a() As String = s.split("*")
        ndr("工序") = a(0)
        ndr("数量") = a(1)
        ndr("产品名称") = dr("产品名称")
        ndr("规格型号") = dr("规格型号")
        ndr("单价") = dr("单价")
    Next
Next

以上代码中，列“完成人员”中的，号必须转换成半角，因为在平时使用中，大家习惯使用中文录入，所以转换很麻烦，请问有解决方法吗？

另外，姓名*100  这样的录入能不能直接变成    姓名100，去掉中间的*，这样录入就快很多，谢谢！

此主题相关图片如下：1101.png

或者直接由上图的第一行中的完成人员变成第二行中的完成人员里面的样式，什么符号都不要也可以