想实现多行同时操作、红色部分内容该怎么修改？

1、在【装机工单工作日志表】中写入日志、同时操作多少行就登记多少条记录

2、在【小区名称关联表】中、同时操作多少行就在每行的【工单流程】单元格里加入当前操作内容。

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()

If e.Form.Controls("装维人员姓名").text = "" Then   
    MessageBox.show("请填写接受维护小区的【装维人员姓名】!!!", "非常关键提醒")  
Else
    With Tables("小区名称关联表")
        For i As Integer = .BottomPosition To .TopPosition Step -1
            .Rows(i)("装维人员姓名") = e.Form.Controls("装维人员姓名").text
           
            Dim nd As DataRow = DataTables("装机工单工作日志表").AddNew
            nd("工单号") = r("工单号")
            nd("区域") = r("区域")
            nd("工单当前环节") = r("工单当前环节")
            nd("来单时间") = r("流转时间")
            nd("处理人") = User.name
            nd("用户分组") = User.Group
            nd("用户角色") = User.Roles
            nd("处理时间") = dt
            nd("下一个环节") = e.Form.Controls("下一个环节").text
            nd("当前工作内容") = r("当前工作内容") 
        
            Dim num As Integer = r("处理时长")
            Dim str1 As String = format(num \\ 3600, "00") & ":" & format((num Mod 3600) \\ 60, "00") & ":" & format(num Mod 60, "00")
            r("工单流程") &= vbcrlf & vbcrlf & "来单环节:【"& r("工单当前环节") &"】 操作人员:【"& User.Name &"】 操作内容:【"&  r("当前工作内容") & "】 工单时间:【"&  r("流转时间") &"】 完成时间:【"& dt & "】 下一环节:【" &   e.Form.Controls("下一个环节").text & "】 处理时长:【"&  str1  &"】"                    
            r("流转时间") = dt
            r("来单内容") = r("当前工作内容")
            r("工单当前环节") = e.Form.Controls("下一个环节").text
            r("当前工作内容") =Nothing           
            r("卡单组处理员工") = User.name
           
        Next
    End With
   
    MessageBox.show("完成小区名称的批量修改工作,请保存数据!!!", "非常关键提醒")
End If