主题：移动数据行时有误

你写了代码清空啊，如果不想清空，那就删除你的赋值代码。

请上传实例，具体说明你的逻辑，说明要做到什么效果。

把代码改写到click事件即可

If e.Sender.Checked Then
    e.Form.Controls("zengzhifuwu").Enabled=True
     Else
    Dim t As Table = Tables("表A")
    Dim idx As Integer=t.findrow("商户ID='" & e.Form.Controls("shanghuIDTextBox").Value & "'")
    Dim dr As DataRow = DataTables("表A").Find("商户ID='" & e.Form.Controls("shanghuIDTextBox").Value & "'")
      If idx >=0 Then
    dr("贷记卡金额") = Nothing
    dr("借记卡费率") = Nothing
    dr("借记卡封顶金额") =Nothing
    dr("借记卡是否开通封顶") = False
    dr("增收手续费") = Nothing
    dr("增收费率") = Nothing
    e.Form.Controls("zengzhifuwu").Enabled=False
    End If
End If