以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  新增多行 并赋不同的值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139312)
--  作者：y2287958
--  发布时间：2019/8/10 21:16:00
--  

可以把这个几个值写成数组或集合

然后循环数组或集合即可
--  作者：有点蓝
--  发布时间：2019/8/11 21:28:00
--  
dim str() as string = {"单位1","单位2"}
dim str1() as string = {"国家1","国家2"}

For i As Integer = 0 To str.length - 1
    Dim nr =  Tables("岗位配置").AddNew()
    nr("公司名称") = str(i)
    nr("公司名称") =  str1(i)
Next