以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]字符截取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104255)
--  作者：ming8604
--  发布时间：2017/7/26 11:16:00
--  [求助]字符截取
请问截取某个表格里，"/"前面的字符。语句怎么写？
--  作者：有点甜
--  发布时间：2017/7/26 11:24:00
--  
dim str as string = “aaaabbb/3434789"
Dim ary As String() = str.split("/")
msgbox(ary(0))
--  作者：ming8604
--  发布时间：2017/7/26 12:41:00
--  
订单管理窗口下，导入订单按钮执行，其中一个数据填入不会编写。求指导，谢谢

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
    Next
End If
--  作者：有点甜
--  发布时间：2017/7/26 13:29:00
--  

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编辑过]
--  作者：ming8604
--  发布时间：2017/7/26 15:08:00
--  
对不起，是我表达错误了。

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")
--  作者：有点甜
--  发布时间：2017/7/26 16:36:00
--  
             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