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编辑过]
加好友 
发短信
Post By：2015/1/22 10:32:00 [显示全部帖子]
