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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码问题。。求纠正

共有3495人关注过本帖树形打印复制链接主题：代码问题。。求纠正

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/2/11 16:28:00 [显示全部帖子]

If e.DataCol.name="订单编号" Then

Dim b As String = e.DataTable.Compute("max(生产编号)","订单编号='" & e.DataRow("订单编号") & "'")

if b > "" then

e.DataRow("生产编号")=e.DataRow("订单编号") & Convert.ToChar(Convert.ToInt32(b.SubString(b.length-1,1).ToCharArray()(0))+1)

end if

End If

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/2/14 8:57:00 [显示全部帖子]

If e.DataCol.name="订单编号" Then

Dim b As String = e.DataTable.Compute("max(生产编号)","订单编号='" & e.DataRow("订单编号") & "'")

if b > "" then

e.DataRow("生产编号")=e.DataRow("订单编号") & Convert.ToChar(Convert.ToInt32(b.SubString(b.length-1,1).ToCharArray()(0))+1)

else

这里写不存在最大编号时的代码，也就是此订单的第一个生成编号

end if

End If

主题：代码问题。。求纠正