怎么将某个表的字段名称及当前行字段值,组合后,新增一条记录,写入到一个表的日志内容里面。
当前,我初步通过遍历表中所有字段,并且查询字段内当前行记录数据,进行组合。
但是效果貌似不是最佳方法。麻烦老师们指导一下。
代码如下:
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