主题：数据类型

数据类型黑掉了，无法更改

此主题相关图片如下：1.png

是不是设置了关联，锁定了？

此主题相关图片如下：1.png

不管日期怎么改，前面的编号就会改成最后一次数据转换结果。

参考代码，有问题，做例子发上来。

 

If e.DataCol.Name = "订舱日期" Then
    If e.DataRow.IsNull("订舱日期") Then
        e.DataRow("订舱编号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("订舱日期"),"yyyyMMdd") & "-内贸" '取得订舱编号的8位前缀
        If e.DataRow("订舱编号").StartsWith(bh) = False '如果订舱编号的前8位不符
            Dim  max As String
            Dim  idx As  Integer
            max = e.DataTable.Compute("Max(订舱编号)","订舱日期 = #" & e.DataRow("订舱日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大订舱编号
            If  max > "" Then '如果存在最大订舱编号
                idx = CInt(max.Substring(bh.length,3)) + 1  '获得最大订舱编号的后三位顺订舱编号,并加1
            Else

                idx = 1 '否则顺订舱编号等于1
            End  If
            e.DataRow("订舱编号") = bh & Format(idx,"000")
         End If
    End  If
 End  If