通过循环内向表加入数据，只能加入一条 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 通过循环内向表加入数据，只能加入一条

共有3428人关注过本帖树形打印复制链接主题：通过循环内向表加入数据，只能加入一条

xa139

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

加好友

发短信

等级：童狐帖子：282 积分：2835 威望：0 精华：0 注册：2019/4/23 11:17:00

通过循环内向表加入数据，只能加入一条 发帖心情

Post By：2021/7/29 23:33:00 [显示全部帖子]

Dim rz As Row = Tables("runno_zhujichen").AddNew()

Dim htbh As String = Functions.Execute("formatname",e.form.controls("textbox2").text)

htbh =htbh.ToUpper()

If InStr(htbh ,"|") > 0 Then

Dim Values() As String

Values = htbh.split("|")

For Index As Integer = 0 To Values.Length - 1

Tables("runno_zhujichen").AddNew()

rz("fa piao号") = e.form.controls("textbox1").text

rz("合同编号") =Values(Index)

rz.Save()

rz.load()

Else

rz("fa piao号") = e.form.controls("textbox1").text

rz("合同编号") =htbh

rz.Save()

rz.load()

End If

xa139

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

加好友

发短信

等级：童狐帖子：282 积分：2835 威望：0 精华：0 注册：2019/4/23 11:17:00

Post By：2021/7/29 23:47:00 [显示全部帖子]

Dim htbh As String = Functions.Execute("formatname",e.form.controls("textbox2").text)

If InStr(htbh ,"|") > 0 Then

Dim Values() As String

Values = htbh.split("|")

Dim rz As Row = Tables("runnozhujichen").AddNew(Values.Length )

For Index As Integer = 0 To Values.Length - 1

rz = Tables("runnozhujichen").AddNew()

rz("fa piao号") = e.form.controls("textbox1").text

rz("合同编号") =Values(Index)

rz.Save()

rz.load()

Else

Dim rz As Row = Tables("runnozhujichen").AddNew()

rz("fa piao号") = e.form.controls("textbox1").text

rz("合同编号") =htbh.ToUpper()

rz.Save()

rz.load()

End If

找到了，已解决

[此贴子已经被作者于2021/7/29 23:48:33编辑过]

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

主题：通过循环内向表加入数据，只能加入一条