以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- BeforeCloseProject求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43096) |
||||
-- 作者:L88919138 -- 发布时间:2013/11/29 12:08:00 -- BeforeCloseProject求助 求助以下代码为何无法将存货账中筛选出业务发生日期为空并且商品名称不为空的记录?
If DataTables("存货账").Find("[业务发生日期] Is Null") Is Nothing Then If DataTables("存货账").Find("[商品名称] Is Null") IsNot Nothing Then Return \'那么返回 End If Dim Result As DialogResult Result = Messagebox.Show("存货账业务发生日期未录入,请录入完整后再保存.","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.No Then \'如果用户选择否 e.Cancel = True \'取消关闭项目 Tables("存货账").Filter = "[业务发生日期] Is Null" \'筛选出业务发生日期为空的记录. MainTable = Tables("存货账") \'选择存货账作为主表. End If End If |
||||
-- 作者:狐狸爸爸 -- 发布时间:2013/11/29 12:13:00 -- 参考: http://www.foxtable.com/help/topics/0400.htm http://www.foxtable.com/help/topics/0396.htm
查找发生日期为空并且商品名称不为空:
If DataTables("存货账").Find("[业务发生日期] Is Null And [商品名称] Is Not Null") Is Nothing Then
|
||||
-- 作者:L88919138 -- 发布时间:2013/11/29 14:15:00 -- 多谢狐爸指点。
|
||||
-- 作者:L88919138 -- 发布时间:2014/1/20 15:59:00 -- 我在项目事件BeforeSaveProject中输入如下代码,为何只有例子二表格有效果,而例子一、例子三无法按程序列出产品不为空而日期为空的记录?请大师们赐教下。谢谢。
Dim Result As DialogResult
If DataTables("例子二").Find("[日期] Is Null And [产品] Is Not Null") Is Nothing Then Return \'那么返回 End If Result = Messagebox.Show("例子二日期未录入,是否保存.","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.No Then \'如果用户选择否 e.Cancel = True \'取消关闭项目 Tables("例子二").Filter = "[日期] Is Null And [产品] Is Not Null" \'筛选出状态为空的记录. MainTable = Tables("例子二") \'选择表作为主表. End If
If DataTables("例子一").Find("[日期] Is Null And [产品] Is Not Null") Is Nothing Then Return \'那么返回 End If Result = Messagebox.Show("例子一日期未录入,是否保存.","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.No Then \'如果用户选择否 e.Cancel = True \'取消关闭项目 Tables("例子一").Filter = "[日期] Is Null And [产品] Is Not Null" \'筛选出状态为空的记录. MainTable = Tables("例子一") \'选择表作为主表. End If
If DataTables("例子三").Find("[日期] Is Null And [产品] Is Not Null") Is Nothing Then Return \'那么返回 End If Result = Messagebox.Show("例子三日期未录入,是否保存.","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.No Then \'如果用户选择否 e.Cancel = True \'取消关闭项目 Tables("例子三").Filter = "[日期] Is Null And [产品] Is Not Null" \'筛选出状态为空的记录. MainTable = Tables("例子三") \'选择表作为主表. End If
|
||||
-- 作者:Bin -- 发布时间:2014/1/20 16:11:00 -- 你这样做,前面的没有符合要求的,就直接return 了 那还有机会执行后面的. 应该这样做 If DataTables("例子二").Find("[日期] Is Null And [产品] Is Not Null") Then Result = Messagebox.Show("例子二日期未录入,是否保存.","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.No Then \'如果用户选择否 e.Cancel = True \'取消关闭项目 Tables("例子二").Filter = "[日期] Is Null And [产品] Is Not Null" \'筛选出状态为空的记录. MainTable = Tables("例子二") \'选择表作为主表. End If End If |
||||
-- 作者:L88919138 -- 发布时间:2014/1/20 17:18:00 -- 谢谢BIN大师指点。 |