主题：[求助]自动编号问题

'参考
Dim rq As String = Tables("客户1").Rows(0)("取样日期")
rq= rq.Replace("-","")
Dim bh As String = Tables("客户1").Rows(0)("客户编号")
Dim st As DataRow = DataTables("类别编号").Find("系统类别='" & CurrentTable.Current("系统类别") & "'")
Dim str As String = st("系统编号")
output.Show(rq & "-JYT-" & bh & str)