主题：2个问题

参数值列改为:数据列,字符型:

Dim T,T1 As String
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "参数代号"
       
        if dr.Isnull("参数代号")=False then
           if dr("参数代号").Contains("-") then
               for each T1 In dr("参数代号").split("-")
                  T = T & "-" & DataTables("参数明细").Find("参数代号 = '" & T1 & "'")("参数值")
               Next
               T = T.Trim("-")
           else
               T = DataTables("参数明细").Find("参数代号 = '" & dr("参数代号") & "'")("参数值")
           end if              
               dr("参数值") = T
               dr("表达式") = "W" & "-" & dr("参数值") & "*" & "2"
           else
               dr("参数值") = Nothing
               dr("表达式") = ""            
            end if
 
End Select