显示订单和新增订单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 显示订单和新增订单

共有2044人关注过本帖树形打印复制链接主题：显示订单和新增订单

wyz20130512

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2017/3/31 18:43:00 [显示全部帖子]

'这段代码的作用是 : 显示明天的订单,如果有记录就显示出来. 如果没有记录,按了YES后,就可以新增订单

With Tables("表A")

Dim f As String = "[日期] = #" & Date.Today().AddDays(1) & "#"

Dim dr As DataRow = .DataTable.Find(f)

If dr IsNot Nothing Then

.Filter = f

Else

Dim Result As DialogResult

Result = MessageBox.Show("明天还没有订单,是否要开始增加订单", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

Dim r As Row = .AddNew()

r("日期") = Date.Today.AddDays(1)

End If

End With

[此贴子已经被作者于2017/3/31 18:44:12编辑过]

wyz20130512

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2017/3/31 19:02:00 [显示全部帖子]

若是外部表: SQL数据,将#号换为'号

wyz20130512

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2017/3/31 19:48:00 [显示全部帖子]

BeforeOpenProject事件

'msgbox(Date.Today)

Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo

cd.ShortDatePattern = "yyyy-MM-dd"

Dim DateInfo As System.Reflection.FieldInfo = cd.Gettype.GetField("generalLongTimePattern", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)

If DateInfo IsNot Nothing Then

DateInfo.SetValue(cd, "yyyy-MM-dd HH:mm:ss")

End If

'msgbox(Date.Today)

wyz20130512

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2017/3/31 19:49:00 [显示全部帖子]

加上上述代码试试，可能是系统日期格式冲突。

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=93429&authorid=0&page=0&star=1

我这边测试没问题！

[此贴子已经被作者于2017/3/31 19:57:10编辑过]

下一主题 >> << 上一主题

主题：显示订单和新增订单