以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表达式列提取字符串  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26504)
--  作者：laoshu4569
--  发布时间：2012/12/6 14:26:00
--  [求助]表达式列提取字符串
表达式列能否提取字符串 提取某一列中间的数字
--  作者：狐狸爸爸
--  发布时间：2012/12/6 14:31:00
--  
不可以，只有通过代码才行
--  作者：nblwar
--  发布时间：2012/12/6 14:33:00
--  
提取别的列的字符串应该可以吧
--  作者：nblwar
--  发布时间：2012/12/6 14:34:00
--  
SubString()不就是？
--  作者：laoshu4569
--  发布时间：2012/12/6 14:37:00
--  
wh是列名  下面这段代码 是放在DataColChanged中实现的  如果想放在按钮里 该怎么实现


Dim T As String=e.DataRow("wh")
 
Dim ecLs As New List(Of String)
Dim i,n, n1,n2 As Integer
n = T.Length - T.Replace("]","").length
For i  = 0 To n-1
    n1 = T.Indexof("]",n2)
    n2 = T.Indexof("号",n1)
    ecLs.Add (T.SubString(n1+1,n2-n1-1))
Next
output.show(ecLs(0))
Dim cd As WinForm.ComboBox = Forms("查询").Controls("ComboBox1")
cd.value=ecLs(0)
--  作者：nblwar
--  发布时间：2012/12/6 14:47:00
--  

Dim t As Table = e.Table
For r As Integer = 0 To e.Table.Rows.Count - 1
    Dim TJ As String
    If t.Rows(r).IsNULL("保税") Then
        TJ = "[合金] = \'" & t.Rows(r)("合金") & "\' AND [保税] IS NULL"
    Else
        TJ = "[合金] = \'" & t.Rows(r)("合金") & "\' AND ([保税] = \'" & t.Rows(r)("保税") & "\' AND [保税] IS NOT NULL)"
    End If
   
    t.Rows(r)("期初结存") = Tables("热轧盘点表").Compute("Sum(重量)",TJ)    
Next

 

 

这段代码供你参考
--  作者：laoshu4569
--  发布时间：2012/12/6 14:59:00
--  
我是想放在窗口的按钮 中  点击实现下面提取功能
--  作者：狐狸爸爸
--  发布时间：2012/12/6 15:00:00
--  
纸上不谈兵，做个简单的例子发上来，输入两行数据，然后说明你的需要