增加数据出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dt As DataTable = DataTables("收支交易流水")

Dim max As String

Dim idx As Integer

Dim xrq As String = Format(Date.Today,"yyyyMMdd")

Dim max As String

max = dt.Compute("Max(单号)","单号 like 'HD & xrq & %'")

If max > "" Then '如果存在最大编号

idx = CInt(max1.SubString(10)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

For Each dr1 As DataRow In dt.Select("单号 is null")

Dim str As String = "HD" & xrq & Format(idx,"0000")

Dim fdr As DataRow = dt.find("单号 ='" & str & "'")

If fdr Is Nothing

dr1("单号") = str

End If

idx += 1

代码哪有问题？自动编号为什么隔一行已添加呢

此主题相关图片如下：截图00.jpg

[此贴子已经被作者于2020/2/13 19:59:37编辑过]

单号不自动编号，都是一个号

此主题相关图片如下：截图01.jpg

Dim dt As DataTable = DataTables("收支交易流水")

Dim max As String

Dim idx As Integer

Dim xrq As String = Format(Date.Today,"yyyyMMdd")

max = dt.Compute("Max(SZJYLSID)","SZJYLSID like 'SZJYLS%'")

If max > "" Then '如果存在最大编号

idx = CInt(max.SubString(6)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

For Each dr As DataRow In dt.Select("SZJYLSID is null")

Dim str As String = "SZJYLS" & Format(idx,"000000")

Dim fdr As DataRow = dt.find("SZJYLSID= '" & str & "'")

If fdr Is Nothing

dr("SZJYLSID") = str

End If

idx += 1

dt.Save

Dim max1 As String

max1 = dt.Compute("Max(单号)","单号 like 'HD & xrq & %'") 是不是这段代码的问题呀？

If max1 > "" Then '如果存在最大编号

idx = CInt(max1.SubString(10)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

For Each dr1 As DataRow In dt.Select("单号 is null")

Dim str As String = "HD" & xrq & Format(idx,"0000")

'Dim fdr As DataRow = dt.find("单号 ='" & str & "' And [_Identify] <> " & e.DataRow("_Identify"))

'If fdr Is Nothing

dr1("单号") = str

' End If

idx += 1

同样的代码SZJYLSID自动都能自动编号

[此贴子已经被作者于2020/2/14 9:32:10编辑过]

第一次

此主题相关图片如下：第一次.jpg

第二次

此主题相关图片如下：第二次.jpg

第三次

此主题相关图片如下：第三次.jpg

如果放到“SZJYLSID”字段上运行是正确的

第一次

此主题相关图片如下：正确1.jpg

第二次

此主题相关图片如下：正确2.jpg

第三次

此主题相关图片如下：正确3.jpg

[此贴子已经被作者于2020/2/14 9:49:56编辑过]

max1 = dt.Compute("Max(单号)","单号 like 'HD" & xrq & "%'")蓝老师这句代码如果不加“HD”怎么写呀？

我是这样写的max1 = dt.Compute("Max(单号)","单号 like ' " & xrq & "%'")

怎么老是错呀？

[此贴子已经被作者于2020/2/14 10:59:35编辑过]

max = DataTables("收支交易流水").Compute("Max(单号)","单号 like '" & bh & "%'")

msgbox(max)

就是按您的格式写的还是无数据

此主题相关图片如下：错误.jpg

[此贴子已经被作者于2020/2/14 11:27:42编辑过]

奇怪了结果还是一样无数据

主题：增加数据出错