以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  datetime问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87810)
--  作者：aidimeng
--  发布时间：2016/7/20 9:06:00
--  datetime问题
使用日期来做编号，教程中的代码，有时可以正常使用，有时就报错

处理办法：每次都是 恢复下系统的日期格式，重启电脑 

.NET Framework 版本：2.0.50727.5466
Foxtable 版本：2016.6.13.1
错误所在事件：表，领料单主表，DataColChanged
详细错误信息：
调用的目标发生了异常。
该字符串未被识别为有效的 DateTime。


有时项目不发布 可以使用，不会报错，但发布后的程序会报上面的错误

有没有更好的办法解决上面的问题啊 
--  作者：大红袍
--  发布时间：2016/7/20 9:13:00
--  
--  作者：aidimeng
--  发布时间：2016/7/20 9:20:00
--  
怎么调用啊  如果 原来的代码如下
If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("单据编号") = Nothing
    Else
        Dim bh As String = "VA" & 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 [id] <> " & e.DataRow("id")) \'取得该天的最大编号
            If max > "" Then \'如果存在最大编号
                idx = CInt(max.Substring(bh.length+1)) + 1 \'获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 \'否则顺序号等于1
            End If
            e.DataRow("单据编号") = bh & Format(idx,"000")
        End If
    End If
End If
--  作者：大红袍
--  发布时间：2016/7/20 9:21:00
--  
 看2楼，调整你系统日期时间。
--  作者：aidimeng
--  发布时间：2016/7/20 9:22:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82970&replyID=574979&skin=1
看了上面的代码，设置好全局代码后，在程序中怎么调用啊，原来的代码需要怎么修改啊？
[此贴子已经被作者于2016/7/20 9:31:20编辑过]
--  作者：大红袍
--  发布时间：2016/7/20 9:30:00
--  

1、写到全局代码

 

2、在afterOpenProject调用
--  作者：aidimeng
--  发布时间：2016/7/20 9:38:00
--  

调用代码

 

Dim x As Integer = GetSystemDefaultLCID()
SetLocaleInfo(x, LOCALE_STIME, "HH:mm:ss") \'时间格式  
SetLocaleInfo(x, LOCALE_SSHORTDATE, "yyyy-MM-dd") \'短日期格式    
SetLocaleInfo(x, LOCALE_SLONGDATE, "yyyy-MM-dd") \'长日期格式


写在项目AfterOpenProject事件中吗？  我这样做了， 全局代码也添加了，还是一样的报错
--  作者：大红袍
--  发布时间：2016/7/20 9:45:00
--  
 那你就用方法二尝试一下。
--  作者：aidimeng
--  发布时间：2016/7/20 9:46:00
--  
我一直在使用第二种方法，感觉太麻烦了
代码中
  Dim bh As String = "VA" & Format(e.DataRow("日期"),"yyyy-MM-dd") \'取得编号的8位前缀
这里需要修改吗？
--  作者：大红袍
--  发布时间：2016/7/20 9:48:00
--  

 方法一：肯定没问题，如果出问题，说明你有其他软件每次都修改了系统日期格式。

 

 要不你就用代码处理

 

max = e.DataTable.Compute("Max(单据编号)","日期 = #" & Format(e.DataRow("日期"), "yyyy-MM-dd") & "# And [id] <> " & e.DataRow("id")) \'取得该天的最大编号