主题：[求助] 数值比较问题

 
此主题相关图片如下：360截图20160908111150395.jpg

在 DataColChanged 中写有以下命令：

If e.DataCol.Name = "工单处理时限" Or e.DataCol.Name = "工单处理时长" Or e.DataCol.Name = "工单申请延期"   Then '如果更改的是 ***列 和 ***列   
If e.DataRow("工单申请延期") = "已申请延期" Then

   e.DataRow("工单是否超时") = "工单已申请延期"
Else
If e.DataRow("工单申请延期") = "未申请延期"  Then

If e.DataRow("工单处理时长") > e.DataRow("工单处理时限") Then

   e.DataRow("工单是否超时") = "工单处理已超时"
Else

If e.DataRow("工单处理时长") <= e.DataRow("工单处理时限") Then

   e.DataRow("工单是否超时") = "工单处理未超时"

End If
End If
End If
End If
End If

【列表项目4】为字符型、【工单处理时限】为{双精度小数型}拓展类型为{时段}；该怎么修改以下命令才能将【字符型】转换成【时段型】

 

Dim dr2 As DataRow
If e.DataCol.Name = "业务类型" Or e.DataCol.Name = "电路级别" Or e.DataCol.Name = "业务保障级别" Or e.DataCol.Name = "业务是否全阻"  Then 

  dr2 = DataTables("移动线路室列表项目表").Find("[表名] = '集客故障工单处理表' And [列名] = '工单处理时限'  And [列表项目1] = '" & e.DataRow("电路级别") & "'  and [列表项目2] = '" & e.DataRow("业务保障级别") & "'  and [列表项目3] = '" & e.DataRow("业务是否全阻") & "' ")
    If dr2 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
        e.DataRow("工单处理时限") = dr2("列表项目4")
    Else
        e.DataRow("工单处理时限") = ""
     
    End If
End If

以下命令中【通知提醒时间】【通知代维单位时间】为日期时间型、【列表项目3】为字符型（值格式为：3600）；

 

 Dim dr2 As DataRow
 dr2 = DataTables("惠州多项列表项目表").Find("[表名] = '抢修整治迁改表' And [列名] = '申请区域'  And [列表项目1] = '" & e.DataRow("申请区域") & "'  ")
 If dr2 IsNot Nothing Then 

 dr("通知提醒时间") = dr("通知代维单位时间") + dr2("列表项目3")

 Else
 dr("通知提醒时间") = Nothing

end if

 

执行结果弹出错误提示：

 

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：表，抢修整治迁改表，DataColChanged
详细错误信息：
调用的目标发生了异常。
从字符串“2016/9/15 15:31:003000”到类型“Date”的转换无效。

如果【列表项目2】=3000秒、那么3000/3600= 0.833333；如果我想把0.83333转换成50分钟、该怎么处理？

 

If e.Form.Controls("列表项目2").Text <> "" Then
e.Form.Controls("TextBox1").Text = e.Form.Controls("列表项目2").Text /3600
Else
e.Form.Controls("TextBox1").Text =""
End If

 

我想做一个比对按钮；功能是：同一个表中【日期】列【2016-11-15】的数据与【2016-11-10】的数据中的【名称】列进行比较、如果相同就在【是否存量】列标“是”、否则就标“否”。我的按钮命令该怎么写？

 

日期                       名称           是否存量

 

2016-11-10             A

2016-11-10             B

2016-11-10             C

 

2016-11-15             A              是     

2016-11-15             B              是

2016-11-15             D              否

按钮命令：

此主题相关图片如下：360截图20161130170806968.jpg

 

 DataTables("网管导出光功率数据表").LoadFIlter = "(数据日期 = '" & e.Form.Controls("核对日期").Text  & "' or 数据日期 = '" & e.Form.Controls("存量日期").Text  & "' ) and  全省_是否弱光 = '是' "
    DataTables("网管导出光功率数据表").Load
    
    Dim alist As List(Of String) = DataTables("网管导出光功率数据表").GetValues("OLT|端口编号","数据日期 = '" & e.Form.Controls("存量日期").Text  & "'")   
    Dim drs As List(Of DataRow) = DataTables("网管导出光功率数据表").Select("数据日期 = '" & e.Form.Controls("核对日期").Text  & "'")
    For Each dr As DataRow In drs
        If alist.Contains(dr("OLT|端口编号")) Then
            dr("存量核对弱光") = "是"
        Else
            dr("存量核对弱光") = "否"
        End If
    Next

 

提示错误

 

 

此主题相关图片如下：360截图20161130170825327.jpg

想实现删除【装机工单表】中符合条件的行，如下公式删除命令该怎么改？

 

For Each r1 As Row In Tables("复开工单表").Rows
   Dim dr1 As DataRow = DataTables("装机工单表").Find("工单号 = '" & r1("工单号") & "' and '" & r1("工单状态") & "'= '营销退单' ")
    If dr1 IsNot Nothing Then
          Tables("装机工单表").Current.Delete()
    End  If
   
Next

我有以下数据匹配命令出现问题、我的命令该怎么修改？

1、如果一级地址到七级地址所有单元格都有内容、就能够成功匹配到数据； 

2、如果一级地址到七级地址所有单元格中有某些单元格没有内容、就不能够成功匹配到数据。

 

For Each r As Row In Tables("复开工单表").Rows
    Dim dr As DataRow = DataTables("五级地址网格关联表").Find("一级地址 = '" & r("一级地址") & "' and 二级地址 = '" & r("二级地址") & "' and 三级地址 = '" & r("三级地址") & "'and 四级地址 = '" & r("四级地址") & "'and 五级地址 = '" & r("五级地址") & "' ")
    If dr IsNot Nothing Then
        'For Each s As String In "宽带帐号".Split("|")
        r("网格名称") = dr("网格名称")
    Else
        r("网格名称") = ""
    End If

 

 

此主题相关图片如下：360截图20170205174017978.jpg

明明【小区名称关联表】中存在【区域和小区名称】与【装机工单清单表】中的【区域和小区名称】相同的内容；为什么点击匹配按钮后就是没有将【装维人员姓名】进行更新呢？  匹配按钮命令如下：

 

DataTables("装机工单清单表").LoadFIlter = " 装维人员姓名 = '未匹配到装维人员' or 装维人员姓名 is null "
DataTables("装机工单清单表").Load

 

DataTables("小区名称关联表").LoadFIlter = ""
DataTables("小区名称关联表").Load

 

Dim Result As DialogResult
Result = MessageBox.Show( "是否重新匹配装维人员?" & vbcrlf &"确定请按  [是]" & vbcrlf & "放弃请按  [否]", "非常关键提醒", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If Result = DialogResult.Yes Then
   
   
    For Each r As Row In Tables("小区名称关联表").Rows
    Dim r1 As DataRow = DataTables("装机工单清单表").Find("小区名称 = '" & r("小区名称") & "' and 区域 = '" & r("区域") & "' ")
        If r1 IsNot Nothing Then
     

            r1("装维人员姓名") = r("装维人员姓名")

        End  If
    Next

此主题相关图片如下：360截图20170323163143924.jpg