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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]产生多余换行符  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117002)

--  作者：天一生水
--  发布时间：2018/4/4 9:05:00
--  [求助]产生多余换行符
请老师看看，是不是表“诉讼参加人”DataColChanged中代码的问题？

此主题相关图片如下：image 1.jpg

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:测试空行.foxdb

--  作者：有点甜
--  发布时间：2018/4/4 10:07:00
--

\'\'\'
Dim dr As DataRow = e.DataRow      \'表中每一行进行多列合并,在文本框中作为一行
Select Case e.DataCol.Name
    Case "诉讼地位","诉讼参加人","性别","出生日期","民族","住所地","法定代表人","职务","单位","职业"
        Dim str = dr("诉讼地位")
        If str.contains("原告") Then
            If str.contains("委托代理人") Then         \'下面是原告代理人各列合并
                dr("原告出庭") = IIF(dr.IsNull("诉讼地位"),"",dr("诉讼地位").Replace("原告委托代理人","委托代理人")+"")
                dr("原告出庭") += IIF(dr.IsNull("诉讼参加人"),"",dr("诉讼参加人")+"，")
                dr("原告出庭") += IIF(dr.IsNull("单位"),"",dr("单位") + "" )
                dr("原告出庭") += IIF(dr.IsNull("职业"),"",dr("职业")+"。"+ vbcrlf)
                dr("原告出庭") = dr("原告出庭").trimend("。").trim(chr(10), chr(13))
            Else                                       \'下面是原告各列合并
                dr("原告出庭") = IIF(dr.IsNull("诉讼地位"),"",dr("诉讼地位") +"")
                dr("原告出庭") += IIF(dr.IsNull("诉讼参加人"),"",dr("诉讼参加人")+"，")
                dr("原告出庭") += IIF(dr.IsNull("性别"),"",dr("性别")+"，")
                dr("原告出庭") += IIF(dr.IsNull("出生日期"),"",Format(dr("出生日期"), "yyyy年M月d日")+"出生，")
                dr("原告出庭") += IIF(dr.IsNull("民族"),"",dr("民族")+"，")
                dr("原告出庭") += IIF(dr.IsNull("单位"),"",dr("单位")+"。" )
                dr("原告出庭") += IIF(dr.IsNull("住所地"),"",dr("住所地") + "。" + vbcrlf)
                dr("原告出庭") += IIF(dr.IsNull("法定代表人"),"",dr("法定代表人")+"，")       \'法定代表人另起一行
                dr("原告出庭") += IIF(dr.IsNull("职务"),"",dr("职务")+"。" + vbcrlf)
                dr("原告出庭") = dr("原告出庭").trimend("。").trim(chr(10), chr(13))
            End If

        ElseIf str.contains("被告") Then
            If str.contains("委托代理人") Then                \'下面是被告代理人各列合并
                dr("被告出庭") = IIF(dr.IsNull("诉讼地位"),"",dr("诉讼地位").Replace("被告委托代理人","委托代理人")+"")
                dr("被告出庭") += IIF(dr.IsNull("诉讼参加人"),"",dr("诉讼参加人")+"，")
                dr("被告出庭") += IIF(dr.IsNull("单位"),"",dr("单位") + "" )
                dr("被告出庭") += IIF(dr.IsNull("职业"),"",dr("职业") + "。" + vbcrlf)
                dr("被告出庭") = dr("被告出庭").trimend("。").trim(chr(10), chr(13))
            Else                                                \'下面是被告各列合并
                dr("被告出庭") = IIF(dr.IsNull("诉讼地位"),"",dr("诉讼地位")+"")
                dr("被告出庭") += IIF(dr.IsNull("诉讼参加人"),"",dr("诉讼参加人")+"，")
                dr("被告出庭") += IIF(dr.IsNull("住所地"),"",dr("住所地")+"。" + vbcrlf)
                dr("被告出庭") += IIF(dr.IsNull("法定代表人"),"",dr("法定代表人")+"，")          \'法定代表人另起一行
                dr("被告出庭") += IIF(dr.IsNull("职务"),"",dr("职务") + "。" + vbcrlf)
                dr("被告出庭") = dr("被告出庭").trimend("。").trim(chr(10), chr(13))
            End If

        ElseIf str.contains("第三人") Then
            If str.contains("委托代理人") Then                   \'下面是第三人代理人各列合并
                dr("第三人出庭") = IIF(dr.IsNull("诉讼地位"),"",dr("诉讼地位").Replace("第三人委托代理人","委托代理人")+"")
                dr("第三人出庭") += IIF(dr.IsNull("诉讼参加人"),"",dr("诉讼参加人")+"，")
                dr("第三人出庭") += IIF(dr.IsNull("单位"),"",dr("单位") + "" )
                dr("第三人出庭") += IIF(dr.IsNull("职业"),"",dr("职业") + "。"+ vbcrlf)
                dr("第三人出庭") = dr("第三人出庭").trimend("。").trim(chr(10), chr(13))
            Else                                                   \'下面是第三人各列合并
                dr("第三人出庭") = IIF(dr.IsNull("诉讼地位"),"",dr("诉讼地位") +"")
                dr("第三人出庭") += IIF(dr.IsNull("诉讼参加人"),"",dr("诉讼参加人") +"，")
                dr("第三人出庭") += IIF(dr.IsNull("性别"),"",dr("性别")+"，")
                dr("第三人出庭") += IIF(dr.IsNull("出生日期"),"",Format(dr("出生日期"), "yyyy年M月d日")+"出生，")
                dr("第三人出庭") += IIF(dr.IsNull("民族"),"",dr("民族")+"，")
                dr("第三人出庭") += IIF(dr.IsNull("单位"),"",dr("单位")+"。" )
                dr("第三人出庭") += IIF(dr.IsNull("住所地"),"",dr("住所地")+"。" + vbcrlf)
                dr("第三人出庭") += IIF(dr.IsNull("法定代表人"),"",dr("法定代表人")+"，")                \'法定代表人另起一行
                dr("第三人出庭") += IIF(dr.IsNull("职务"),"",dr("职务")+"。" + vbcrlf)
                dr("第三人出庭") = dr("第三人出庭").trimend("。").trim(chr(10), chr(13))
            End If
        End If
End Select

\'==========将本案号同列的多行合并，写入数据表，并将最终合并结果---[诉讼参加人]的值写入窗口文本框
Dim str1 As String = “”
Dim str2 As String = “”
Dim str3 As String = “”
For Each r As Row In Tables("诉讼参加人").Rows
    str1 += iif(r("原告出庭")>"", vbcrlf, "") & r("原告出庭")
    str2 += iif(r("被告出庭")>"", vbcrlf, "") & r("被告出庭")
    str3 += iif(r("第三人出庭")>"", vbcrlf, "") & r("第三人出庭")
Next

Dim dr1 = DataTables("数据表").Find("[案号] = \'" & e.DataRow("案号") & "\'")
dr1("原告出庭") = str1
dr1("被告出庭") = str2
dr1("第三人出庭") = str3
dr1("诉讼参加人") = str1 & iif(str2>"", vbcrlf, "") & str2 & iif(str3>"", vbcrlf, "") & str3

If Forms("当事人").opened Then
    Forms("当事人").Controls("TextBox1").text = str1 & str2 &str3
Else
    Return
End If

--  作者：天一生水
--  发布时间：2018/4/4 12:00:00
--
谢谢甜老师！
在点击按钮导入原、被告时，第一行还出现空行。

此主题相关图片如下：image 2.jpg

--  作者：有点甜
--  发布时间：2018/4/4 12:15:00
--
dr1("诉讼参加人") = (str1 & iif(str2>"", vbcrlf, "") & str2 & iif(str3>"", vbcrlf, "") & str3).Trim(chr(10), chr(13))

--  作者：天一生水
--  发布时间：2018/4/4 12:49:00
--

这三个单元格第一行还是空行。

......
dr1("原告出庭") = str1
dr1("被告出庭") = str2
dr1("第三人出庭") = str3
......

--  作者：有点甜
--  发布时间：2018/4/4 12:55:00
--

比如，删除红色代码

dr("原告出庭") += IIF(dr.IsNull("职业"),"",dr("职业")+"。" + vbcrlf)
dr("原告出庭") = dr("原告出庭").trimend("。")