Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]开发的软件出错了，求大神解决！


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

主题：[求助]开发的软件出错了，求大神解决！
帅哥哟，离线，有人找我吗？
hrw68529
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8846 威望：0 精华：0 注册：2012/7/10 9:09:00 		[求助]开发的软件出错了，求大神解决！  发帖心情 Post By：2017/5/26 16:19:00 [只看该作者]

出错描述：开发一个软件生成一个发布项目后，在其他电脑上运行正常，但在其中一个电脑上，选择初始日期和结束日期后，查找一个时间段的数据时，出错，如下图，什么问题：
图片点击可在新窗口打开查看此主题相关图片如下：！出错问题2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2017/5/26 16:35:00 [只看该作者]

就是你 窗口Button19，click事件代码问题啊

你把代码贴出来看看

 

DateTime改Date试试

 

[此贴子已经被作者于2017/5/26 16:36:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hrw68529
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1142 积分：8846 威望：0 精华：0 注册：2012/7/10 9:09:00 		  发帖心情 Post By：2017/5/26 16:43:00 [只看该作者]

Dim Filter As String = "1=1"
With e.Form.Controls("comboBox15")
    If .Value IsNot Nothing Then       
 Filter &= " and 年度 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("StarDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "接收处理日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "接收处理日期 <= #" & .Value & "#"
    End If
End With

With e.Form.Controls("comboBox16")
    If .Value IsNot Nothing Then
        Filter &= " and 受伤害职工姓名 = '" & .Value & "'"
    End If
End With

If e.Form.Controls("yja1").Checked = True ' 如果付款状态选择了"已付"   
 Filter = Filter & " and 是否结案 = true"
    End If
    
If e.Form.Controls("wja1").Checked = True ' 如果付款状态选择了"未付"  
    Filter = Filter & " and 是否结案 = false"
End If
If e.Form.Controls("ydc1").Checked = True ' 如果付款状态选择了"未付"
    Filter = Filter & " and 是否调查 = True"
End If

If e.Form.Controls("wdc1").Checked = True ' 如果付款状态选择了"未付"   
    Filter = Filter & " and 是否调查 = false"
End If
If e.Form.Controls("fq").Checked = True ' 如果付款状态选择了"未付"
    Filter = Filter & " and 是否放弃 = True"
End If
If e.Form.Controls("wfq").Checked = True ' 如果付款状态选择了"未付" 
    Filter = Filter & " and 是否放弃 = false"
End If

If e.Form.Controls("wt").Checked = True ' 如果付款状态选择了"未付"  
    Filter = Filter & " and 是否委托 = True"
End If

If e.Form.Controls("ysl").Checked = True ' 如果付款状态选择了"未付"   
    Filter = Filter & " and 是否受理 = true"
End If
'If e.Form.Controls("wsl").Checked = True ' 如果付款状态选择了"未付"   
    'Filter = Filter & " and 是否受理 = false"
'End If
If e.Form.Controls("ybz").Checked = True ' 如果付款状态选择了"未付"   
    Filter = Filter & " and 已补正 = true"
End If
If e.Form.Controls("xbz").Checked = True ' 如果付款状态选择了"未付"   
    Filter = Filter & " and 需补正 = true"
End If

'msgbox(filter)

If Filter > "" Then
    Dim str As String = Tables("工伤认定申请表_table1").DataTable.GetComboListString("_Identify", filter)
    Tables("工伤认定申请表_table1").Filter = "_Identify in (-1," & str.replace("|", ",") & ")"
End If

'If Filter > "" Then
    'Tables("工伤认定申请表_table1").Filter = Filter
'End If
'
Tables("工伤认定申请表_table1").Sort = "申请时间"

'
''Dim xm As WinForm.ComboBox = e.Form.Controls("combobox16")
''Tables("工伤认定申请表_table1").Filter="受伤害职工姓名 = '" & xm.text & "'"
''
'Dim Filter As String
'With e.Form.Controls("comboBox15")
    'If .Value IsNot Nothing Then
        'Filter = "年度 = '" & .Value & "'"
    'End If
'End With
'
'With e.Form.Controls("comboBox1")
    'If .Value IsNot Nothing Then
        'Filter = "月份 = '" & .Value & "'"
    'End If
'End With
'
''With e.Form.Controls("comboBox2")
    ''If .Value IsNot Nothing Then
        ''Filter = "认定月份 = '" & .Value & "'"
    ''End If
''End With
''
'With e.Form.Controls("comboBox16")
    'If .Value IsNot Nothing Then
        'Filter = "受伤害职工姓名 = '" & .Value & "'"
    'End If
'End With
'
'If e.Form.Controls("yja1").Checked = True ' 如果付款状态选择了"已付"
    'If Filter >"" Then
        'Filter = Filter & " And "
    'End If
    'Filter = Filter & "是否结案 = true"
'End If
'If e.Form.Controls("wja1").Checked = True ' 如果付款状态选择了"未付"
    'If Filter >"" Then
        'Filter = Filter & " And "
    'End If
    'Filter = Filter & "是否结案 = false"
'End If
'If e.Form.Controls("ydc1").Checked = True ' 如果付款状态选择了"未付"
    'If Filter >"" Then
        'Filter = Filter & " And "
    'End If
    'Filter = Filter & "是否调查 = True"
'End If
'
'If e.Form.Controls("wdc1").Checked = True ' 如果付款状态选择了"未付"
    'If Filter >"" Then
        'Filter = Filter & " And "
    'End If
    'Filter = Filter & "是否调查 = false"
'End If
'If e.Form.Controls("fq").Checked = True ' 如果付款状态选择了"未付"
    'If Filter >"" Then
        'Filter = Filter & " And "
    'End If
    'Filter = Filter & "是否放弃 = True"
'End If
'If e.Form.Controls("wfq").Checked = True ' 如果付款状态选择了"未付"
    'If Filter >"" Then
        'Filter = Filter & " And "
    'End If
    'Filter = Filter & "是否放弃 = false"
'End If
'
'If e.Form.Controls("wt").Checked = True ' 如果付款状态选择了"未付"
    'If Filter >"" Then
        'Filter = Filter & " And "
    'End If
    'Filter = Filter & "是否委托 = True"
'End If
'
'If e.Form.Controls("bsl").Checked = True ' 如果付款状态选择了"未付"
    'If Filter >"" Then
        'Filter = Filter & " And "
    'End If
    'Filter = Filter & "不受理 = false"
'End If
'
'If Filter > "" Then
    'Dim str As String = Tables("工伤认定申请表_table1").DataTable.GetComboListString("_Identify", filter)
    'Tables("工伤认定申请表_table1").Filter = "_Identify in (" & str.replace("|", ",") & ")"
'End If
'
''If Filter > "" Then
    ''Tables("工伤认定申请表_table1").Filter = Filter
''End If
''
'Tables("工伤认定申请表_table1").Sort = "申请时间"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107669 积分：547660 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/5/26 17:48:00 [只看该作者]

系统日期问题，修改系统日期格式。

或者按这里的方法处理一下
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06445 秒, 4 次数据查询