主题：赋值问题求帮助

老师好，我现在有窗体中有表A，点击 按钮1 之后希望实现，增加12行，其中表A的 事项名称 列，会在新增的12行中依次显示甲、乙、丙、丁、戊、己、庚、辛、壬、癸、子、丑这12个字，请问按钮1的代码应该怎么写，求解，谢谢

Dim str As String = "甲乙丙丁戊己庚辛壬癸子丑"
For Each s As String In str
    Dim ndr As DataRow = DataTables("表A").addnew
    ndr("第一列") = s
Next

谢谢有点甜老师，现在又出现了一个问题，代码里是让每个字符都单出现一行中，其实我的12个事项不都是一个字，有代办、代账、房屋租赁、装修、办公家具、桶装水、绿植、打印机、网络、电脑、品宣、开业  共计12项，这种多字符的情况，代码应该如何修改一下啊？

Dim str As String = "甲,乙,丙,丁,戊,己,庚,辛,壬,癸,子,丑"
For Each s As String In str.split(",")
    Dim ndr As DataRow = DataTables("表A").addnew
    ndr("第一列") = s
Next

Dim r As Row 

谢谢老师

谢谢老师