主题：求助 动态控件写入值到当前行的列

老师：您好！

动态生成的控件，写入值到列，我在窗口事件TextChanged的代码是：

If e.Sender.Name Like "TextBox*" Then
    Dim idx As Integer = e.Sender.Name.Replace("TextBox", "")
    Tables("qrymyf").Position = idx
    Dim r As Integer = idx
    Dim k As Row = Tables("表A").Rows(r)("第一列")
    e.Sender.WriteValue(k)   
End If

提示：

此主题相关图片如下：1.png

请老师指教！谢谢！

我修改代码：

If e.Sender.Name Like "TextBox*" Then
    Dim idx As Integer = e.Sender.Name.Replace("TextBox", "")
    Tables("qrymyf").Position = idx
    Dim k As Row = Tables("qrymyf").Rows(idx)
    k("ymyfjgm") = e.Sender.WriteValue(idx)
End If

提示： 

此主题相关图片如下：2.png

If e.Sender.Name Like "TextBox*" Then
    Dim idx As Integer = e.Sender.Name.Replace("TextBox", "")
    Tables("qrymyf").Position = idx
    Tables("表A").Rows(idx )("第一列") = e.Sender.Text
End If

谢谢老师！！！