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

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

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

规格修改那一列的内容是系统自动输入的，包含输入的用户和输入日期   比如我想查询生产表输入日期为昨天，用户名为nbl的记录应该怎么写代码

 

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

 

 

 

 

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 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("规格修改")
    Dim Values() As String = str.split(" ")
    user = ?
    Date = ?
Next
Next 

不知道怎么写了

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

谢谢czy

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号的

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

楼主什么意思？

感觉代码逻辑没有问题......

请自查表数据。