主题：窗口

在一个单元格录入数据时 只要是同一行前边单元格内出现  城建  两个字 就能自动弹出一个提醒窗口  内容是  该车今天是否有成品？ 点击确定 关闭该窗口 代码怎么写？

startEdit

 

For i As Integer = 0 To e.Col.Index-1
    If e.Row(i).contains("城建") Then
        msgbox("该车今天是否有成品")
        Exit For
    End If
Next

此主题相关图片如下：33.png

城建 单元格 前边输入日期的时候  出现这个 并且 该窗口 还关不掉

1、代码这样写

 

For i As Integer = 0 To e.Col.Index-1
    If Cstr(e.Row(i)).contains("城建") Then
        msgbox("该车今天是否有成品")
        Exit For
    End If
Next

 

2、你表达的逻辑，肯定有问题，请具体说明哪一列填写，或哪一列有值后提示。

此主题相关图片如下：77.png

  当日期列和 托运单位为城建时  承运单位录入数据后 就要出现提示窗口

DataColChanged事件

 

If e.DataCol.Name = "承运单位" Then

    If e.DataRow("托运单位").Contains("城建") Then

        msgbox("该车今天是否有成品")

    End If

End If

这个代码提示的有点早  我的意思是日期列有数据 和 托运单位 为城建 时   承运单位 列 录入数据后 才出现提示窗口

If e.DataCol.Name = "承运单位" Then

    If e.DataRow("托运单位").Contains("城建") AndAlso e.DataRow.IsNull("日期") = False Then

        msgbox("该车今天是否有成品")

    End If

End If