主题：like属性

从字符串“&txt2&”到类型“Boolean”的转换无效。

不同的出发地，结算日期根据情况，分为15日、20日、月底，3种截至日期。

请单独做一个实例发上来测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.foxdb

Select Case e.DataCol.name
    Case "日期"
        If e.NewValue Is Nothing Then
            e.DataRow("结算日期") = Nothing
        ElseIf e.DataRow("出发地") = "上海"
            Dim dt As Date = e.NewValue
            If dt.Day > 20 Then '如果为25日以后的日期
                dt = new Date(dt.year,dt.month,1) '改为下个月的第一天
                dt= dt.AddMonths(1)
            End If
        ElseIf e.DataRow("出发地") = "天津"
            Dim dt As Date = e.NewValue
            If dt.Day > 15 Then '如果为25日以后的日期
                dt = new Date(dt.year,dt.month,1) '改为下个月的第一天
                dt= dt.AddMonths(1)
            End If
            e.DataRow("结算日期") = dt
        ElseIf e.DataRow("出发地") Like "*苏州*" OrElse e.DataRow("出发地") Like "*无锡*" OrElse e.DataRow("出发地") Like "*常州*" OrElse e.DataRow("出发地") Like "*扬州*"
            Dim dt As Date = e.NewValue
            If dt.Day > 31 Then '如果为25日以后的日期
                dt = new Date(dt.year,dt.month,1) '改为下个月的第一天
                dt= dt.AddMonths(1)
            End If
            e.DataRow("结算日期") = dt
        End If
End Select

谢谢甜老师