用名称首字母生成编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用名称首字母生成编号

共有2640人关注过本帖树形打印复制链接主题：用名称首字母生成编号

联友

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

加好友

发短信

等级：小狐帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00

用名称首字母生成编号 发帖心情

Post By：2019/6/15 15:13:00 [显示全部帖子]

窗口1ComboBox1（名称），用名称首字母生成编号。

比如：电脑，首字母是DN。

请老师指教，谢谢！

dr = DataTables("固定资产").AddNew()
Dim max As String = DataTables("固定资产").SQLCompute("Max(资产编号)","资产编号 Like 'DN" & ary(1) & "-" & "%'")
If max = "" Then
     dr("资产编号") = "DN" & ary(1) & "-" & "0001"
Else
     Dim v As Integer = max.SubString(9,4)
     dr("资产编号") = "DN" & ary(1) & "-" & format(v +1,"0000")
End If

联友

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

加好友

发短信

等级：小狐帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00

Post By：2019/6/18 22:47:00 [显示全部帖子]

谢谢

联友

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

加好友

发短信

等级：小狐帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00

Post By：2019/6/19 0:52:00 [显示全部帖子]

老师求教，根据入库数量增加行

Dim dx As String = Ucase(getpinyin(e.form.controls("品名").text,1))
Dim ary() As String = Functions.Execute("Xueqi")

Dim m As Integer = e.Form.Controls("入库数量").Text
DataTables("固定资产").AddNew(m)
For Each r As DataRow In DataTables("固定资产").DataRows
    r("采购编号") = e.Form.Controls("采购编号").Text
    Dim max As String
    max = DataTables("固定资产").SQLCompute("Max(资产编号)","资产编号 Like '" & dx & "-"& ary(1) & "-" & "%'")
    If max = "" Then
        r("资产编号") = dx &"-"& ary(1) & "-" & "0001"
    Else
        Dim v As Integer = max.SubString(max.length - 4,4)
        r("资产编号") = dx & "-" & ary(1) & "-" & format(v+1,"0000")
    End If
Next

[此贴子已经被作者于2019/6/19 1:10:19编辑过]

联友

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

加好友

发短信

等级：小狐帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00

Post By：2019/6/19 1:17:00 [显示全部帖子]

这样对吗？

Dim dx As String = Ucase(getpinyin(e.form.controls("品名").text,1))

Dim ary() As String = Functions.Execute("Xueqi")
Dim m As Integer = e.Form.Controls("入库数量").Text
DataTables("固定资产").AddNew(m)
For Each dr As DataRow In DataTables("固定资产").DataRows
    dr("采购编号") = e.Form.Controls("采购编号").Text
    Dim max As String
    max = DataTables("固定资产").SQLCompute("Max(资产编号)","资产编号 Like '" & dx & "-"& ary(1) & "-" & "%'")
    If max = "" Then
        dr("资产编号") = dx &"-"& ary(1) & "-" & "0001"
    Else
        Dim v As Integer = max.SubString(max.length - 4,4)
        dr("资产编号") = dx & "-" & ary(1) & "-" & format(v+1,"0000")
    End If
    dr.Save()
Next

下一主题 >> << 上一主题

主题：用名称首字母生成编号