- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助][原创]关于CheckedComboBox选择值的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24824)
-- 发布时间：2012/10/24 9:27:00
-- [求助][原创]关于CheckedComboBox选择值的问题
在附件中 的项目中 值班表窗口中 有一个CheckedComboBox 这个值是获取统计表中的 数据（白班，夜班 和白班夜班的各自价格） 我在选择 白班的时候 填入价格 可是怎么样才能实现 我在同时选择白班和夜班的 时候 能自动算出 两个加一起的价格
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
[此贴子已经被作者于2012-10-24 10:00:54编辑过]
-- 发布时间：2012/10/24 9:52:00
--
如果不想麻烦，就添加一个 白班,夜班 600 和 夜班,白班 600
不然，就又要写代码了。
-- 发布时间：2012/10/24 9:55:00
--
可是不想那样 假如我里面还有节假日 万一 这个人上班的这天 是白班夜班 又是节假日 该怎么办 总不能 也加个那样的吧 我就是希望 能自动算出
-- 发布时间：2012/10/24 10:37:00
--
好吧，那就改代码
\'如果刚刚输入的是值班种类
If e.DataCol.Name = "值班种类" Then
Dim dr As DataRow
Dim Filter As String
Dim args() As String = e.NewValue.Split(",")
Dim money As Double = 0
For Each arg As String In args
Filter = "[值班种类] = \'" & arg & "\'"
dr = DataTables("统计").Find(Filter) \'在统计表查找所输入值班种类的行
If dr IsNot Nothing Then \'如果找到
money = money + dr("价格")
End If
Next
e.DataRow("价格") = money
End If
-- 发布时间：2012/10/24 10:43:00
--
以下是引用lin_hailun在2012-10-24 10:37:00的发言：
好吧，那就改代码
\'如果刚刚输入的是值班种类
If e.DataCol.Name = "值班种类" Then
Dim dr As DataRow
Dim Filter As String
Dim args() As String = e.NewValue.Split(",")
Dim money As Double = 0
For Each arg As String In args
Filter = "[值班种类] = \'" & arg & "\'"
dr = DataTables("统计").Find(Filter) \'在统计表查找所输入值班种类的行
If dr IsNot Nothing Then \'如果找到
money = money + dr("价格")
End If
Next
e.DataRow("价格") = money
End If
好吧，那就改代码
\'如果刚刚输入的是值班种类
If e.DataCol.Name = "值班种类" Then
Dim dr As DataRow
Dim Filter As String
Dim args() As String = e.NewValue.Split(",")
Dim money As Double = 0
For Each arg As String In args
Filter = "[值班种类] = \'" & arg & "\'"
dr = DataTables("统计").Find(Filter) \'在统计表查找所输入值班种类的行
If dr IsNot Nothing Then \'如果找到
money = money + dr("价格")
End If
Next
e.DataRow("价格") = money
End If
谢谢 我试试去