主题：更改单位

Dim superName As String = e.Form.Controls("superName").Value
Dim organName As String = e.Form.Controls("organName").Value
Dim organId As String = e.Form.Controls("organId").Value
''窗口名中包含当前单位名
Dim OldOrganName As String
Dim Parts() As String = e.Form.Text.Split("-")
OldOrganName = Parts(Parts.Length -1)
 

 

老师，我现在就是红色那部分不知如何获得那个oldOrganName,

 

比如西安分行的管理员想更改单位：榆林市中心支行  那在修改单位之前如何获得这个单位的名称用于update的where语句，我在afterload语句里面试着将单位名写到窗口标题上，但是获得的是空的

e.Form.Controls("organName").Value = OldOrganName 

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

 

 

老师，您看，这个图的左边是更改单位窗口，右边是afterload事件

 

我想在afterload事件中获得这个单位修改之前的名字？但是我获得的是空的？

到绑定的当前行获取

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

 

老师，上图中，提示已经存在该单位，那么提示错误后，可否让它自动变为修改前的值？

 

If cmd.ExecuteScalar > 0 Then
    Messagebox.show("更改单位失败,该单位已经存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Form.Controls("organName").Value = OldOrganName
    Return
End If

红色这里如何给它自动加个回车 ，让它同时也显示到表里？

f cmd.ExecuteScalar > 0 Then
    Messagebox.show("更改单位失败,该单位已经存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Form.Controls("organName").Value = OldOrganName
    Return
End If

红色这里如何给它自动加个回车 ，让它同时也显示到表里？

 

老师，我上面这么写后，更改窗口可以及时改为之前的值 ，但是窗口的表里面还是修改后的重复值？如何让表的值也及时回到之前 ？

直接给绑定的行赋值

 

cmd.CommandText = " 选择 Count(*) From {organList} Where organName = '" & organName & "'"
If cmd.ExecuteScalar > 0 Then
    Messagebox.show("更改单位失败,该单位已经存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Form.Controls("organName").Value = OldOrganName
    With Tables("organList")
         .Current("organName")=OldOrganName
    End With
    Return
End If

cmd.CommandText = "选择 Count(*) From {organList} Where organId= '" & organId & "'"
If cmd.ExecuteScalar > 0 Then
    Messagebox.show("更改单位失败,该金融机构编码已经存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If

 

 

测试用例 ：  单位：榆林市中心支行

                 金融机构编码：A10000000000000

现在这个单位名称错了，我需要改成铜川市中心支行，金融机构编码是对的，我不改变 ，但是上面的代码会判断出这个机构编码已经存在，然后就无法修改成功。    

cmd.CommandText = " 选择 Count(*) From {organList} Where organName = '" & organName & "'"
If cmd.ExecuteScalar > 0 Then
    Messagebox.show("更改单位失败,该单位已经存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Form.Controls("organName").Value = OldOrganName
    With Tables("organList")
         .Current("organName")=OldOrganName
    End With
    Return
End If

Tables("organList") .Current。save

cmd.CommandText = "选择 Count(*) From {organList} Where organId= '" & organId & "'"
If cmd.ExecuteScalar > 0 Then
    Messagebox.show("更改单位失败,该金融机构编码已经存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If