以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么将某个表的字段名称及当前行字段值，组合后，新增一条记录，写入到一个表的日志内容里面。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149490)
--  作者：李孝春
--  发布时间：2020/5/4 11:59:00
--  怎么将某个表的字段名称及当前行字段值，组合后，新增一条记录，写入到一个表的日志内容里面。
怎么将某个表的字段名称及当前行字段值，组合后，新增一条记录，写入到一个表的日志内容里面。



当前，我初步通过遍历表中所有字段，并且查询字段内当前行记录数据，进行组合。
但是效果貌似不是最佳方法。麻烦老师们指导一下。


代码如下：
For Each c As Col In Tables("党员信息").Cols \'遍历当前表中的列 
    Dim str As String = "【" & c.Name &"】:" & Tables("党员信息").Current(c.Name)
    output.show(str)
Next

上述代码得到如下效果：
【单位名称】:工信部
【支部名称】:第一支部
【姓名】:黄立
【身份证号】:522229198800000037
【性别】:男
【年龄】:33
【出生年月】:1986年10月18日
【民族】:苗
【籍贯】:自治县
【个人身份】:
【党员类别】:党员干部
【联系电话】:
【居住地址】:
【标志】:False

想实现效果为：
【单位名称】:工信部【支部名称】:第一支部【姓名】:黄立【身份证号】:522229198800000037【性别】:男【年龄】:33【出生年月】:1986年10月18日【民族】:苗【籍贯】:自治县【个人身份】:【党员类别】:党员干部【联系电话】:【居住地址】:【标志】:False
--  作者：有点酸
--  发布时间：2020/5/4 14:33:00
--  
Dim str As String 
For Each c As Col In Tables("党员信息").Cols \'遍历当前表中的列 
    str = str &  "【" & c.Name &"】:" & Tables("党员信息").Current(c.Name)
Next
 output.show(str)