- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：代码运行自动关闭项目，求纠正！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63494)
-- 发布时间：2015/1/22 10:32:00
-- 求助：代码运行自动关闭项目，求纠正！
AndAlso换成and 也一样！
Dim A As WinForm.CheckBox = Forms("企业组织").Controls("CheckBox14")
Dim B As WinForm.CheckBox = Forms("企业组织").Controls("CheckBox15")
Dim C As WinForm.CheckBox = Forms("企业组织").Controls("CheckBox16")
If A.Checked=True AndAlso B.Checked=True Or C.Checked=True Then
e.DataRow("销售原因")="消费者能够直接感受到服务效果,成本回收快,无资金压力.零售商零售网络广,面对的消费者多,便于分散经营,批发商资金雄厚,能够快速进行资金回笼,不用担心产品销路"
End If
If A.Checked=True AndAlso B.Checked=True Then
e.DataRow("销售原因")="消费者能够直接感受到服务效果,成本回收快,无资金压力.批发商资金雄厚,能够快速进行资金回笼,不用担心产品销路"
End If
If B.Checked=True AndAlso C.Checked=True Then
e.DataRow("销售原因")="零售商零售网络广,面对的消费者多,便于分散经营,批发商资金雄厚,能够快速进行资金回笼,不用担心产品销路"
End If
If A.Checked=True AndAlso C.Checked=True Then
e.DataRow("销售原因")="消费者能够直接感受到服务效果,成本回收快,无资金压力.批发商资金雄厚,能够快速进行资金回笼,不用担心产品销路"
End If
If A.Checked=False AndAlso B.Checked=False Or C.Checked=False Then
e.DataRow("销售原因")=""
End If
以上代码运行后 自动关闭了项目！求解！
用如下方式：
Select Case e.DataCol.name
Case "零售商"
e.DataRow("销售原因")="零售商零售网络广,面对的消费者多,便于分散经营,"
Case "批发商"
e.DataRow("销售原因")="批发商资金雄厚,能够快速进行资金回笼,不用担心产品销路"
Case "最终消费者"
e.DataRow("销售原因")="消费者能够直接感受到服务效果,成本回收快,无资金压力,"
Case "最终消费者","批发商"
e.DataRow("销售原因")="消费者能够直接感受到服务效果,成本回收快,无资金压力,妈妈咪"
End Select
又不能实现多组合选择变动 求解！
[此贴子已经被作者于2015-1-22 10:35:42编辑过]
-- 发布时间：2015/1/22 10:35:00
--
DataColChanged事件?
你上个例子吧
-- 发布时间：2015/1/22 10:37:00
-- 回复：（Bin）DataColChanged事件?你上个例子吧
列子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:创业计划书.foxdb |
在企业组织表里
[此贴子已经被作者于2015-1-22 10:37:30编辑过]
-- 发布时间：2015/1/22 10:38:00
--
肯定是你datacolchanged写得有问题。
参考 http://www.foxtable.com/help/topics/1522.htm
-- 发布时间：2015/1/22 10:42:00
-- 回复：（有点甜） 肯定是你datacolchanged写得有...
Select Case e.DataCol.name
Case "零售商"
e.DataRow("销售原因")="零售商零售网络广,面对的消费者多,便于分散经营,"
Case "批发商"
e.DataRow("销售原因")="批发商资金雄厚,能够快速进行资金回笼,不用担心产品销路"
Case "最终消费者"
e.DataRow("销售原因")="消费者能够直接感受到服务效果,成本回收快,无资金压力,"
Case "最终消费者","批发商"
e.DataRow("销售原因")="消费者能够直接感受到服务效果,成本回收快,无资金压力,妈妈咪"
End Select
红色部分不起作用
-- 发布时间：2015/1/22 10:43:00
--
既然你Checkbox们绑定了列,就直接判断列就好了
-- 发布时间：2015/1/22 10:48:00
-- 回复：（Bin）既然你Checkbox们绑定了列,就直接判断列...
直接判断 一个 两个 都没问题 当三个全部满足选择或者非选择的时候就导致项目自动关闭啦
-- 发布时间：2015/1/22 11:09:00
--
没有测试出你说的问题。
判断列名，你可以用If语句去判断啊。
-- 发布时间：2015/1/22 11:11:00
-- 回复：（有点甜） 没有测试出你说的问题。&nbs...
难道我机器问题？
-- 发布时间：2015/1/22 11:13:00
--
你给的例子，不论怎么选择，都不会退出啊