[求助]通过代码增加行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如截图，每次新增两行，“与患者关系”分别为“父亲”与“母亲”。简单的代码怎么写？

此主题相关图片如下：360反馈意见截图16230321877183.png

已经搞定。用数组加循环就可以了。有没有更简单的方法。

If s="家庭生活环境史" Then

Dim Multi As String = "父亲|母亲"

Dim Values() As String

Values = Multi.split("|")

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

Dim r As Row =Tables(s1).AddNew()

r("patientsID")=txt

r("访问日期")=Date.Today

r("父母_关系") = Values(Index)

endif

还有一个问题，如果表中已经有了父亲或母亲这行，就涉及只增加一行。加判断，囊个整？？

DataRowAdded事件

e.DataRow("第一列") = "父亲"
systemready = False
Dim ndr = e.DataTable.AddNew
ndr("第一列") = "母亲"
systemready = True

部分内容有了。用这个办法就有点麻烦了。

在点击表前就已经按患者的ID进行了筛选。

[此贴子已经被作者于2015/12/21 17:05:10编辑过]

在datarowadded事件中，也通过数组+循环的方式，是否可行。

5楼什么意思？执行什么操作，做什么效果？

此主题相关图片如下：360反馈意见截图16230320628864.png

For Each s as string In str.split("|")
    If DataTables("表A").find("第一列 = '" & s & "'") is Nothing Then
        Dim nr = DataTables("表A").addnew
        nr("第一列") = s
    End If
Next

谢谢！这样应该可以。代码简洁。

主题：[求助]通过代码增加行