- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何将以下代码合在一起 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54157)
-- 发布时间：2014/7/23 7:13:00
-- 如何将以下代码合在一起
你好，如何将以下两段代码合在一起，这样既能够模糊查询，又能根据日期查询。谢谢。
Dim Filter As String
With e.Form.Controls("染料代号")
If .Value IsNot Nothing Then
Filter = "染料代号 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("存货名称")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "存货名称 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("供应商")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "供应商 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("StartDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
End If
End With
If Filter > "" Then
Tables("进仓").Filter = Filter
************************************************************************
Dim filter As String
Dim sts() As String = {"染料代号","存货名称","供应商"}
For Each st As String In sts
Dim var As String = e.Form.controls(st).value
If var IsNot Nothing Then
var = var.replace("*","[*]")
If filter <> "" Then
filter = filter & " And " & st & " Like \'*" & var & "*\'"
Else
filter = st & " like \'*" & var & "*\'"
End If
End If
Next
Tables("物料信息").filter = filter
-- 发布时间：2014/7/23 8:11:00
--
模糊查询功能已实现，如何实现用代码复制和删除一条记录 -- 发布时间：2014/7/23 8:12:00
--
此主题相关图片如下：qq图片20140723081126.jpg
-- 发布时间：2014/7/23 9:07:00
--
复制：http://www.foxtable.com/help/topics/0600.htm
删除：http://www.foxtable.com/help/topics/0599.htm
-- 发布时间：2014/7/23 9:35:00
--
你好，请问插入呢？谢谢。
-- 发布时间：2014/7/23 9:53:00
--
此主题相关图片如下：qq图片20140723094621.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:祥泰仓库管理系统-改.zip |
请问窗口设计里面的出仓管理，和盘点单管理，为什么点自定义项目出不来呢？可是进仓管理又可以，这是为什么？谢谢。
-- 发布时间：2014/7/23 9:53:00
--
|
你好，请问插入一行的代码在哪呢？谢谢。 |
-- 发布时间：2014/7/23 10:04:00
--
.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.7.21.1
错误所在事件：
详细错误信息：
未能启用约束。一行或多行中包含违反非空、唯一或外键约束的值。
在盘点表录入数据的时候，出现以上的情况，如何解决？
-- 发布时间：2014/7/23 10:13:00
--
序列号显示如下：—identify 被约束为是唯一的值，值32已存在？
-- 发布时间：2014/7/23 10:15:00
--
增加行：
http://www.foxtable.com/help/topics/0560.htm
插入行：
http://www.foxtable.com/help/topics/1981.htm