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

此主题相关图片如下：360截图20120911202709453.jpg

如图,我要分别提取这个列的日期跟用户名用来编写代码条件应该怎么提取?

Dim drs As List(Of DataRow) = DataTables("生产").Select("[当前规格] = '7.0'")
For Each dr As DataRow In drs
    Dim str As String = "dr.("规格修改")"
    Dim Values() As String
    Values = str.split(" ")
    For Index As Integer = 0 To Values.Length - 1
        Output.Show(Values(Index))
    Next
Next

这个代码有什么问题吗

Dim drs As List(Of DataRow) = DataTables("生产").Select("[当前规格] = '7.0'")
For Each dr As DataRow In drs
    Dim str As String = dr("规格修改")
    Dim Values() As String = str.split(" ")
    user = ?
    Date = ?
Next
Next 

不知道怎么写了

DataTables("生产").DataCols.Add("user1", Gettype(String))
DataTables("生产").DataCols.Add("Date1", Gettype(Date))
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("user1") = Values(0)
        dr("Date1") = Values(1)
        Dim dr1s As List(Of DataRow) = DataTables("生产").Select("[Date1]= #09/11/2012#","[user1]")
        For Each dr1 As DataRow In dr1s
            Output.show(dr1("user1"))
        Next
    End If
Next

这个代码不会把得到的结果直接显示出来哦？？？？

而且日期也不是2012-9-11号的，是1号-11号的

假如我只想看昨天的生产情况，这个日期怎么设置啊 ？

DataTables("生产").Select("[当前规格] = '7.0' And DataTables("生产").DataCols("规格修改").Contains("2012-9-11")")

直接用这个代码行吗，怎么改才能生效？

Tables("生产") = DataTables("生产").DataRows().Contains("2012-9-11")

这代码到底错哪了

麻烦死了，我还是直接把  规格修改   分成两列算了，不过要记录的规格太多的话会要很多列，挺麻烦的

我的目的其实很简单，就是把一列当成两列用，不过在设置查询条件的时候代码不会写，貌似没有这方面的例子