以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于Date类型  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43848)
--  作者：wyz20130512
--  发布时间：2013/12/17 12:50:00
--  [求助]关于Date类型

日期字段通过合成表达式后，报错。请高手指点。

 

前提：hc表和后厨表中都含有“rq(日期)，gysh(供应商)，mch(名称)”字段

 

后厨表的“CurrentChanged”

 

Dim dr1 As Row = e.Table.Current
Dim dr2 As DataRow = DataTables("hc").Find("rq = #" & dr1("riqi") & "# and gysh = \'" & dr1("gysh") & "\' and [mch] = \'" & dr1("mch") & "\'")
Dim wzh As Integer
If dr2 IsNot Nothing Then
    wzh = Tables("hc").FindRow(dr2)
    If wzh >= 0 Then
        Tables("hc").Position = wzh
    Else
        MessageBox.Show("Table中没有匹配的数据!可能是进行了筛选.","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    End If
Else
    MessageBox.Show("DataTable中没有匹配的数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If
--  作者：yan2006l
--  发布时间：2013/12/17 12:58:00
--  

rq = #" & dr1("riqi") & "#

 

 

改为  

 

 

rq = #" & dr1("rq") & "#

--  作者：wyz20130512
--  发布时间：2013/12/17 13:03:00
--  

我特意将“后厨”表的日期字段改为“riqi”的。
--  作者：wyz20130512
--  发布时间：2013/12/17 13:29:00
--  
比喻 riqi 的值是： 2013－04－19  经过 dr1("riqi") 后 其值变为 “13/4/19”
这样经过动态合成后，就报错。
--  作者：Bin
--  发布时间：2013/12/17 14:04:00
--  
你这个列不是日期列吗? 难度是字符串列?
--  作者：狐狸爸爸
--  发布时间：2013/12/17 15:24:00
--  

还有，检查一下控制面板中的日期时间格式，看看是不是设置成短格式了