我在单选框的CheckedChanged事件中写了如下代码，运行后发现修改数据并且也保存了数据后，如果这时将数据行移动到单选框未选中的行时，就会把刚才保存过的数据清空了，看看哪的原因？
If e.Sender.Checked Then
e.Form.Controls("zengzhifuwu").Enabled=True
Else
Dim t As Table = Tables("商户表")
Dim idx As Integer=t.findrow("商户ID='" & e.Form.Controls("shanghuIDTextBox").Value & "'")
Dim dr As DataRow = DataTables("商户表").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
加好友 
发短信
Post By：2019/3/31 14:51:00 [显示全部帖子]
