Foxtable(狐表)用户栏目专家坐堂 → 如何判断菜单中的组合框中的内容为空?


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

主题:如何判断菜单中的组合框中的内容为空?

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


加好友 发短信
等级:一尾狐 帖子:430 积分:4655 威望:0 精华:0 注册:2015/3/21 14:25:00
如何判断菜单中的组合框中的内容为空?  发帖心情 Post By:2023/4/26 9:21:00 [只看该作者]

Dim s1 As RibbonMenu.ComboBox = RibbonTabs("月末报表").Groups("月末报表").Items("工具栏1").Items("年份")
Dim s2 As RibbonMenu.ComboBox = RibbonTabs("月末报表").Groups("月末报表").Items("工具栏1").Items("月份")

Dim y As String = s1.text
Dim m As String = s2.text

Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取该月的最后一天
Dim Filter As String
Filter = "((车辆类型 = '外协车' Or 车辆类型 = '外协单位') And (调度日期 >= '" & dt1 & "' And 调度日期 <= '" & dt2 & "')) Or (车辆类型 = '自营车' And (结算日期 >= '" & dt1 & "' And 结算日期 <= '" & dt2 & "'))" 

If y = "" OrElse m = "" Then
    MessageBox.Show("请填写报表月份后再加载数据!", "提示")
Else 
    Tables("月末报表").DataTable.loadfilter = Filter
    Tables("月末报表").DataTable.load
    DataTables("月末报表").DataCols("二次").RaiseDataColChanged()
End If

代码如上,当组合框为空时,出现如下错误提示:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:菜单,加载结账数据,Click
详细错误信息:
从字符串“”到类型“Integer”的转换无效。
输入字符串的格式不正确。

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


加好友 发短信
等级:超级版主 帖子:110711 积分:563469 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/26 9:25:00 [只看该作者]

Dim s1 As RibbonMenu.ComboBox = RibbonTabs("月末报表").Groups("月末报表").Items("工具栏1").Items("年份")
Dim s2 As RibbonMenu.ComboBox = RibbonTabs("月末报表").Groups("月末报表").Items("工具栏1").Items("月份")
If s1.text = "" OrElse s2.text= "" Then
    MessageBox.Show("请填写报表月份后再加载数据!", "提示")
Else 
Dim y As integer= s1.text
Dim m As integer= s2.text

Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取该月的最后一天
Dim Filter As String
Filter = "((车辆类型 = '外协车' Or 车辆类型 = '外协单位') And (调度日期 >= '" & dt1 & "' And 调度日期 <= '" & dt2 & "')) Or (车辆类型 = '自营车' And (结算日期 >= '" & dt1 & "' And 结算日期 <= '" & dt2 & "'))" 
    Tables("月末报表").DataTable.loadfilter = Filter
    Tables("月末报表").DataTable.load
    DataTables("月末报表").DataCols("二次").RaiseDataColChanged()
End If

 回到顶部