一数据列中固定输入格式如下 ，数据格式为String

送扳手1个+螺丝刀2把|A*1+B*2   \'A表示扳手的物料编码，B表示螺丝刀的物料编码

把这个字窜分割成

A

1

B

2

后，我需要用SQL语句调用物料编码取得各个物料的成本单价，代码如下

Dim Str1 As String = "送扳手1个+螺丝刀2把|A*1+B*2"
Dim V As Integer= Str1.IndexOf("|")
Dim str2 As String =str1.Remove(0,v+1)
Dim ss() As String = str2.Split("+")
For Each s1 As String In ss
    Dim s2() As String  = s1.Split("*")
    For Each s3 As String In s2
        \'output.show(s3)
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText = "select 合计成本 from {产品资料主表} where 物料编码 = \'" & 这里是一个分割出来的字符，也就是A & "\'"
     Dim vv As Decimal = cmd.ExecuteScalar
e.DataRow("赠品价格") = VV* ..(这里是分割出来的第二个字符就是数量)  
    Next
Next

求助，标红的地方该怎么写呢？

关键是 S3我分割成了2个字符，要分别取值啊，第一个值是用在SQL里的，另一个值是数量，用来计算价格的

...原来字符后面可以跟数字表示位置的啊，我试试

这方法灵活性不高啊，因为有可能还有C*3，D*4

不是代码灵活性不高，是楼主的灵活性不高啊。

Dim s As String = "送扳手1个+螺丝刀2把|A*1+B*2"
只是楼主提供的一个例子，这个字符串从何而来，只有你一个人知道，而且可以是变量。

变量灵活性高不高？

这个没办法，这个程序是给统计淘宝的出库单的，所有的赠品都在备注里写的，淘宝的出库单格式是固定的，我没办法动，只能采取这种变通的方法，让操作员用固定的备注格式，我通过分割字符来取值

单个赠品的价格算出来了，全部累加该如何写呢?状态不好，脑子混乱啊

Dim Str1 As String = "送扳手1个+螺丝刀2把|A*1+B*2"
Dim V As Integer= Str1.IndexOf("|")
Dim str2 As String =str1.Remove(0,v+1)
Dim ss() As String = str2.Split("+")
For Each s1 As String In ss
    Dim s2() As String  = s1.Split("*")
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "select 合计成本 from {产品资料主表} where 存货编码 = \'" & S2(0) & "\'"
    Dim vv As Decimal = cmd.ExecuteScalar
    Dim sl As Integer = Format(s2(1))
    Dim jg As Decimal = vv*sl ‘这个是每个赠品的价格，如何把所有赠品的价格都计算出来呢？就是赠品1+赠品2+赠品3+...
Next