新增记录窗口_afterload()

\'增加新行

CurrentTable.Current("档案编号") = "P" & bh

以上代码获取 "_Identify" 赋值给  bh ,作为档案编号

---------------------------------------------------

add_Click（）

\'确认新增

If e.Form.Controls("TextBox6").value ="" Then
    MessageBox.Show("<权利人>不能为空!")
    e.Form.Controls("TextBox6").Select()
Else
    Dim bh As String   
   bh = e.Form.Controls("TextBox2").value    \'获取文本框中生成的编号
    Dim dr As DataRow
    dr = DataTables("权利人名单").SQLFind("[档案编号] = \'" & bh & "\'")
    If dr Is Nothing Then       \'如果没找到重复的档案编号,保存新增行
        CurrentTable.Current("档案编号") =  bh
        CurrentTable.Current("录入日期") = Date.Now
        CurrentTable.Current("录入用户") = User.Name
        CurrentTable.Current.save()
        CurrentTable.Current.DataRow.load()
        e.Form.Close()
    Else
        MessageBox.show("档案编号重复,请取消当前窗口,重新点击<新增>获取编号后保存!")
       
    End If
End If

\'以上代码验证 bh (档案编号唯一)后保存。

------------------------------------------------------------------

多用户环境，使用mssql

出现问题是：老是“ MessageBox.show("档案编号重复,请取消当前窗口,重新点击<新增>获取编号后保存!")”，

但有时却能很顺利地增加记录。