主题：声名问题

Dim nyr As String=Date.Now.Year & format(Date.now.Month,"00") & format(Date.now.Day,"00")
Dim zc As String
Dim drz As DataRow = DataTables("系统参数表").Find("类别= '" & 借还库标识 & "单编号'")   '  And 内容='" & nyr & "'")
If drz("内容")<>nyr Then
    drz("内容")=nyr
    drz("流水")=0
End If
drz("流水")=drz("流水")+1
If 借还库标识="借用" Then
    zc="JY" & drz("内容") & format(drz("流水"),"00")
End If

If 出入库标识="归还" Then
    zc="GH" & drz("内容") & format(drz("流水"),"00")
End If
Tables("系统参数表").Current.Save()
Return zc