主题：[求助][原创]关于CheckedComboBox选择值的问题

 如果不想麻烦，就添加一个 白班,夜班 600 和 夜班,白班 600

 不然，就又要写代码了。

 好吧，那就改代码

'如果刚刚输入的是值班种类
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