Foxtable(狐表)用户栏目专家坐堂 → 为什么下面的代码点击按钮两下才能实现目标


  共有3637人关注过本帖树形打印复制链接

主题:为什么下面的代码点击按钮两下才能实现目标

帅哥哟,离线,有人找我吗?
wujie
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:494 威望:0 精华:0 注册:2020/2/21 10:32:00
为什么下面的代码点击按钮两下才能实现目标  发帖心情 Post By:2020/2/22 11:33:00 [显示全部帖子]

Dim d1 As Date = e.Form.Controls("H").Value
Dim d2 As Date = e.Form.Controls("I").Value
Dim s As String = e.Form.Controls("J").Value
Dim b As New GroupTableBuilder("统计表1",DataTables("生产记录"))
If d1 = Nothing Or d2 = Nothing Then
MessageBox.Show("日期都不能为空","友情提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
    With DataTables("生产记录")
         .LoadFilter = "日期>=#" & d1 & "# and 日期<=#" & d2 & "# and 配方名称 like '%" & s & "%'"
    b.Groups.AddDef("原料名称") 
b.Totals.AddDef("设定值") 
b.Totals.AddDef("实际值") 
b.Totals.AddDef("误差值") 
b.Build '生成统计表 
MainTable = Tables("统计表1")
         .Load()
    End With
End If

 回到顶部
帅哥哟,离线,有人找我吗?
wujie
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:494 威望:0 精华:0 注册:2020/2/21 10:32:00
这个是在窗口按钮中实现的  发帖心情 Post By:2020/2/22 11:48:00 [显示全部帖子]

运行了一下系统直接弹出去了

 回到顶部