主题：模糊筛选时日期的问题

当一个表中加载了数据后，在文本框中输入文字后会模糊筛选，文本改变时的代码中用了日期的转换：

If tbl.Cols(Cls(i)).IsNumeric OrElse tbl.Cols(Cls(i)).IsDate Then  '将数值或日期转换为字符
    flt = flt & " Convert(" & Cls(i) & ",'System.String') like " & txt
Else
    flt = flt & Cls(i) & " like " & txt
End If

问题如下：
同一个表中的数据，有的用户输入2014-05-01可以筛选出数据，但有的用户同样的输入却没有数据，必须要输入2014-5-1，即不要月和日前面的那个0，这种情况是怎么产生的？会不会和上面的转换代码有关系？同一台电脑上应该不会同时出现上述两种情况吧

 

谢谢！

应该是因为你该电脑的系统日期格式就是2014-05-01这样的. 导致录入的数据格式不同.  尝试录入日期时,统一格式.

那要怎么才能统一格式呢，项目中的日期都是全部统一用下拉选择的，是不是因为每个人的电脑中系统日期设置不同造成的？那这样要怎么统一？

在DataColChangING事件中

 方案1：需要去设置每台电脑的日期格式，在控制面板那里。

 

 方案2：特殊处理一下

 

Dim d As Date
If Date.TryParse(txt, d) Then
    msgbox("是日期")
Else
    msgbox("不是日期")
End If

 

If tbl.Cols(Cls(i)).IsNumeric Then  '将数值或日期转换为字符
    flt = flt & " Convert(" & Cls(i) & ",'System.String') like " & txt
Else If  tbl.Cols(Cls(i)).IsDate  Then
    flt = flt & cls(i) & " = #" & d & "#"
Else
    flt = flt & Cls(i) & " like " & txt
End If