[求助]字符截取 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问截取某个表格里，"/"前面的字符。语句怎么写？

dim str as string = “aaaabbb/3434789"
Dim ary As String() = str.split("/")
msgbox(ary(0))

订单管理窗口下，导入订单按钮执行，其中一个数据填入不会编写。求指导，谢谢

PriceCNY = 价格申请子表(人民币价格)

符合条件是，价格申请子表中

1.价格申请子表中采购组织=FEILO EXIM LIMITED

2.价格申请子表中物料编码= po表中ProductCode字段中“/”前的编号

3.价格申请子表供应商编号 =POList表中的Vendorcode

4.符合以上条件的最后一次价格

（POList为po表的子表）

我的导入订单按钮的代码：

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True

dlg.Filter= "Excel文件|*.xls;*.xlsx"

If dlg.ShowDialog = DialogResult.OK Then

For Each file As String In dlg.FileNames

Dim Book As New XLS.Book(file)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

If DataTables("POlist").Find("P") Is Nothing Then

Dim dr As DataRow = DataTables("POlist").AddNew

dr("PONo") = sheet(7,5).Text

dr("PODate") = sheet(8,5).text

dr("Vendorcode") = sheet(10,2).text

dr("Contact") = sheet(15,2).text

dr("user") = User.name

Dim i As Integer = 23

Do While (sheet(i,0).Text)<>""

Dim dro As DataRow = DataTables("PO").AddNew

dro("PONo") = sheet(7,5).Text

dro("Item") = sheet(i,0).Text

dro("Productcode") = sheet(i,1).Text

dro("Surcharge") = sheet(i,10).Text

dro("PriceCNY")= ？？？

i = i + 1

Loop

End If

dim str as string = sheet(i,1).Text
Dim ary As String() = str.split("/")

Dim Filter As String = "采购组织 in ('FEILO','EXIM', 'LIMITED') and 物料编码='" & ary(0) & "' and 供应商编号='" & sheet(i,10).Text & "'"

msgbox(filter)

http://www.foxtable.com/webhelp/scr/0396.htm

[此贴子已经被作者于2017/7/26 16:35:03编辑过]

对不起，是我表达错误了。

PriceCNY = 价格申请子表中符合以下条件列中的(人民币价格)列的数值

符合条件是，价格申请子表中

1.价格申请子表中（采购组织）列= FEILO EXIM LIMITED

2.价格申请子表中（物料编码）列= po表中ProductCode字段中“/”前的编号

3.价格申请子表中（供应商编号）列= POList表中的Vendorcode

4.符合以上条件的最后一次价格

（POList为po表的子表）

那我改的代码是：

Dim str As String = sheet(i,1).Text

Dim ary As String() = str.split("/")

Dim drc As DataRow

drc = DataTables("价格申请子表").Find("采购组织 ='FEILO EXIM LIMITED' and 物料编码='" & ary & "' and 供应商代码='" & dr("Vendorcode") & "'" ,"_Identify Desc")

dro("PriceCNY") = drc("人民币价格")

编译错误：没有为类型“string”和string 的 1 维数组“ 定义运算符”&“

错误代码：

drc = DataTables("价格申请子表").Find("采购组织 ='FEILO EXIM LIMITED' and 物料编码='" & ary & "' and 供应商代码='" & dr("Vendorcode") & "'" ,"_Identify Desc")

Dim str As String = sheet(i,1).Text

Dim ary As String() = str.split("/")

Dim drc As DataRow

drc = DataTables("价格申请子表").Find("采购组织 ='FEILO EXIM LIMITED' and 物料编码='" & ary(0) & "' and 供应商代码='" & dr("Vendorcode") & "'" ,"_Identify Desc")

if drc Is Nothing Then

msgbox("没找到")

Else

dro("PriceCNY") = drc("人民币价格")

End If

主题：[求助]字符截取