| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 表达式列是否不能用sql筛选加载 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63696) |
| -- 作者：cyl123 -- 发布时间：2015/1/26 17:42:00 -- 表达式列是否不能用sql筛选加载 表达式列是否不能用sql筛选加载 |
| -- 作者：有点甜 -- 发布时间：2015/1/26 17:46:00 -- 表达式列不存在与数据库，不能直接用。
如果要用，必须直接写表达式，比如 单价 * 数量 > 10000 |
| -- 作者：cyl123 -- 发布时间：2015/1/26 18:01:00 -- 甜老师帮忙看看这代码有什么问题 Dim xm As WinForm.TextBox = e.Form.Controls("员工姓名") Dim nf As WinForm.ComboBox = e.Form.Controls("年份") Dim yf As WinForm.ComboBox = e.Form.Controls("月份") If xm.value="" Then MessageBox.show("请选择员工!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning) Return End If If nf.value="" Then MessageBox.show("请选择年份!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning) Return End If If yf.value="" Then MessageBox.show("请选择月份!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning) Return End If Dim d1 As Integer=nf.value Dim d2 As Integer=yf.value Dim dw As String =xm.value Dim d As new Date(d1,d2,1) DataTables("考勤管理").LoadFilter = "[姓名]= \'" & dw & "\' And [日期] >= \'" & d & "\' And [日期]< \'" & d.AddMonths(1) & "\'" \'加载 DataTables("考勤管理").Load 错误提示：标准表达式中数据类型不匹配。
|
| -- 作者：游 -- 发布时间：2015/1/26 19:04:00 -- 用对话框弹一下看看 |
| -- 作者：有点甜 -- 发布时间：2015/1/26 19:08:00 -- 如果是Access数据源，这样写
DataTables("考勤管理").LoadFilter = "[姓名]= \'" & dw & "\' And [日期] >= #" & d & "# And [日期] < #" & d.AddMonths(1) & "#" \'加载 |