- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86148)
-- 发布时间：2016/6/12 0:46:00
-- 窗口
在一个单元格录入数据时 只要是同一行前边单元格内出现 城建 两个字 就能自动弹出一个提醒窗口 内容是 该车今天是否有成品？ 点击确定 关闭该窗口 代码怎么写？
此主题相关图片如下：44.png
-- 发布时间：2016/6/12 1:54:00
--
startEdit
For i As Integer = 0 To e.Col.Index-1
If e.Row(i).contains("城建") Then
msgbox("该车今天是否有成品")
Exit For
End If
Next
-- 发布时间：2016/6/12 11:39:00
-- 回复：（大红袍）startEdit For i As Intege...
此主题相关图片如下：33.png
城建 单元格 前边输入日期的时候 出现这个 并且 该窗口 还关不掉
-- 发布时间：2016/6/12 11:43:00
--
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、你表达的逻辑，肯定有问题，请具体说明哪一列填写，或哪一列有值后提示。
-- 发布时间：2016/6/12 11:49:00
-- 回复：（大红袍）1、代码这样写 For i As In...
此主题相关图片如下：77.png
当日期列和 托运单位为城建时 承运单位录入数据后 就要出现提示窗口
-- 发布时间：2016/6/12 11:55:00
--
DataColChanged事件
If e.DataCol.Name = "承运单位" Then
If e.DataRow("托运单位").Contains("城建") Then
msgbox("该车今天是否有成品")
End If
End If
-- 发布时间：2016/6/12 11:56:00
-- 回复：（大红袍）1、代码这样写 For i As In...
这个代码提示的有点早 我的意思是日期列有数据 和 托运单位 为城建 时 承运单位 列 录入数据后 才出现提示窗口
-- 发布时间：2016/6/12 12:21:00
--
If e.DataCol.Name = "承运单位" Then
If e.DataRow("托运单位").Contains("城建") AndAlso e.DataRow.IsNull("日期") = False Then
msgbox("该车今天是否有成品")
End If
End If
-- 发布时间：2016/6/12 12:45:00
-- 回复：（大红袍）If e.DataCol.Name = "承运单位" The...
[此贴子已经被作者于2016/6/12 13:22:11编辑过]