主题：[求助]如何在新增列“调查笔录”中予置以下内容？

在“调查笔录”列中予置：以下内容，以便轻松录入内容。也说是新增一行时，“调查笔录”列中自动加入以下内容。

我们是市人力资源和社会保障局的执法人员，这是我们的行政执法证，现依法向你调查有关情况，根据《工伤保险条例》第十九条规定，行政机关在调查时，当事人和有关人员有义务协助调查和如实回答并保证陈述内容的真实性，否则将负相关法律责任。你听清楚没有？

答：听清楚了

问：请问你的姓名？你在什么单位工作？你在单位从事的是什么工作？

答：

问：你们的工作时间是怎么规定的？

答：

问：是否签订劳动合同？

答：

问：你们的工资是如何规定和发放的？

答：

问：xxx受伤害时，有哪些人在场？他们的具体姓名？

答：

问：请你把xxx受伤害的经过叙述一下。

答：

问：受伤的部位是那里？

答：

问：你住院了吗？你什么时间住院的？你住院多久了？

答：

问：医疗费用支付的情况？到目前为止，单位共负担医药费多少元？现在该同志的伤情怎样？

答：

问：你还有什么要补充的吗？

答：没有补充的了。

DataRowAdded事件

 

Dim txt As String = FileSys.ReadAllText("d:\test.txt", Encoding.default)
e.DataRow("第一列") = txt