以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]提取列的日期跟用户名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23419)

--  作者:nblwar
--  发布时间:2012/9/11 20:30:00
--  [求助]提取列的日期跟用户名


图片点击可在新窗口打开查看此主题相关图片如下:360截图20120911202709453.jpg
图片点击可在新窗口打开查看
如图,我要分别提取这个列的日期跟用户名用来编写代码条件应该怎么提取?

规格修改那一列的内容是系统自动输入的,包含输入的用户和输入日期

 

比如我想查询生产表输入日期为昨天,用户名为nbl的记录应该怎么写代码

[此贴子已经被作者于2012-9-12 22:36:58编辑过]

--  作者:czy
--  发布时间:2012/9/11 20:32:00
--  

 

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

 

 

 

 


--  作者:nblwar
--  发布时间:2012/9/11 21:02:00
--  

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

这个代码有什么问题吗

[此贴子已经被作者于2012-9-11 21:04:47编辑过]

--  作者:czy
--  发布时间:2012/9/11 21:04:00
--  
Dim str As String = dr("规格修改")
--  作者:nblwar
--  发布时间:2012/9/11 21:06:00
--  
哦,谢谢了
--  作者:nblwar
--  发布时间:2012/9/11 21:25:00
--  

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
 

不知道怎么写了

[此贴子已经被作者于2012-9-11 21:36:08编辑过]

--  作者:czy
--  发布时间:2012/9/11 21:34:00
--  
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

--  作者:nblwar
--  发布时间:2012/9/11 21:40:00
--  
谢谢czy
--  作者:nblwar
--  发布时间:2012/9/11 22:53:00
--  

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

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

[此贴子已经被作者于2012-9-12 6:58:06编辑过]

--  作者:lin_hailun
--  发布时间:2012/9/12 9:02:00
--  
楼主什么意思?

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

请自查表数据。