主题：[求助]提取列的日期跟用户名

 

http://www.foxtable.com/help/topics/0245.htm

 

 

 

 

Dim str As String = dr("规格修改")

Dim drs As List(Of DataRow) = DataTables("生产").Select("[当前规格] = '7.0'")
For Each dr As DataRow In drs
    Dim str As String = dr("规格修改")
    If str <> "" Then
        Dim Values() As String
        Values = str.split(" ")
        dr("列1") = Values(0)
        dr("列2") = Values(1)
    End If
Next