以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  GetComboListString问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185579)

--  作者:HJG_HB950207
--  发布时间:2023/3/3 9:00:00
--  GetComboListString问题
表A, 有列:收文 ,收文为备注列,多文件型

通过   Dim W As String = DataTables("表A").GetComboListString("收文").replace("|", "" & vbcrlf & "")
        能获取表A文件列的所有文件名。
       请教如何用代码在文件名前按取值顺序插入流水号编号。

--  作者:有点蓝
--  发布时间:2023/3/3 9:27:00
--  
Dim Ws() As String = DataTables("表A").GetComboListString("收文").replace("|", vblf ).replace(vbcr, "").split(vblf )
for i as integer = 0 to ws.length -1
ws(i) = format(i,"000") & "_" & ws(i)
net

dim w as string = string.join(vbcrlf,ws)
msgbox(w)