以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102385) |
-- 作者:chh2321 -- 发布时间:2017/6/19 8:54:00 -- 请教代码问题 老师,早上好! 请教问题: Select Case e.DataCol.Name Case "第一列","第二列" If e.DataRow("第一列") = "A" Then If e.DataRow("第二列") = "B" Then e.DataRow("第三列") = "C" End If End If End Select 上段代码运行后,第三列可以得出C;但下面的代码不行,请问如何修改: 我的逻辑是:当第一列出现A,第二列只要出现B,第三列就等于C Select Case e.DataCol.Name Case "第一列","第二列" If e.DataRow("第一列") Like "%A%" Then If e.DataRow("第二列") Like "%B%" Then e.DataRow("第三列") = "C" End If End If End Select |
-- 作者:2900819580 -- 发布时间:2017/6/19 8:55:00 -- Select Case e.DataCol.Name
Case "第一列","第二列"
If e.DataRow("第一列") Like "\'%A%\'" Then
If e.DataRow("第二列") Like "\'%B%\'" Then
e.DataRow("第三列") = "C"
End If
End If
End Select |
-- 作者:chh2321 -- 发布时间:2017/6/19 9:24:00 -- 代码我试了,还是不行
|
-- 作者:chh2321 -- 发布时间:2017/6/19 9:38:00 -- 经测试,内部表,以下代码可以正常运行 Select Case e.DataCol.Name Case "第一列","第二列" If e.DataRow("第一列") Like "*A*" Then If e.DataRow("第二列") Like "*B*" Then e.DataRow("第三列") = "C" End If End If End Select 如果是外部数据源sql server,上面代码不行,请问应该如何修改代码? [此贴子已经被作者于2017/6/19 9:39:54编辑过]
|
-- 作者:有点色 -- 发布时间:2017/6/19 10:07:00 -- 加入红色代码,看弹出什么
Select Case e.DataCol.Name
Case "第一列","第二列"
msgbox(e.datarow("第一列") & vbcrlf & e.DataRow("第一列") Like "*A*")
If e.DataRow("第一列") Like "*A*" Then
If e.DataRow("第二列") Like "*B*" Then
e.DataRow("第三列") = "C"
End If
End If
End Select
|
-- 作者:chh2321 -- 发布时间:2017/6/19 10:28:00 -- 内部表测试(商业版), 如果第一列含A,弹出True;第二列含B,会再次弹出True; 如果第一列不含A,弹出False;第二列不含B,会再次弹出False 外部表测试(开发板),不弹出任何东西 [此贴子已经被作者于2017/6/19 10:28:31编辑过]
|
-- 作者:chh2321 -- 发布时间:2017/6/19 10:46:00 -- 上述代码外部表测试(商业版)能正常运行 |
-- 作者:有点色 -- 发布时间:2017/6/19 10:51:00 -- 回复6楼,你把你项目的bin文件夹删除,重新打开项目测试。
在datacolchanged事件写代码,msgbox(e.newvalue),修改表数据,看能否弹出值。 |
-- 作者:chh2321 -- 发布时间:2017/6/19 13:09:00 -- 上述代码外部表测试(开发版)也能正常运行。 可能是因为第三列我设置了下拉列表的问题,换成没有下拉列表的第四列后,运行正常。 有下拉列表的字段可以通过代码写入值吗?
[此贴子已经被作者于2017/6/19 13:12:13编辑过]
|
-- 作者:chh2321 -- 发布时间:2017/6/19 13:49:00 -- 把第三列数据表下拉列表改成自定义录入界面的下拉列表后,可以正常运行了。 成功解决!
|