e.Form.Controls("liuliangkachongzhi").ReadOnly = False Dim r As Row = Tables("流量卡资料").Current If r IsNot Nothing Then e.Form.Controls("liuliangkahaoTextBox1").value = r("流量卡号") End If e.Form.Controls("xiugaishuju ").TopMost = True e.Form.Controls("querenxiugaishuju").TopMost = False DataTables("充值记录").AllowEdit= False