主题：用户登录

开发了一个软件，可以多个项目使用（不同项目分别建立不同数据库，但是软件中数据源相同），局域中使用时，不同的用户可以登录不同的数据库（使用相同的软件，所以也相同），其中在某一表中操作时，另外人会在软件中显示如下内容，该怎么处理？

.NET Framework 版本：2.0.50727.8689
Foxtable 版本：2017.10.26.1
错误所在事件：
详细错误信息：
列“_Identify”被约束为是唯一的。值“124”已存在。

以上问题产生的原因是由于网络状态下同步更新时产生的，我的想法是怎么能让更新时按不同的数据库更新？

Dim r As Row = Tables("表A").Current
Dim p As String = IIF(r.DataRow.RowState = DataRowState.Added, "A#", "U#")
r.Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = p & "表A" & "#" & r("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
    If bd.Online Then
        QQClient.Send(bd.name, msg)
    End If
Next

需要对以上代码进行修改，增加上数据库的名称，应该怎么修改？

看看

http://www.foxtable.com/webhelp/scr/2276.htm

http://www.foxtable.com/webhelp/scr/2914.htm

比如

Dim msg As String = p & "数据库名-表A" & "#" & r("_Identify")

分拆的时候，对数据库名、表名再分拆一次即可。

关键是以下代码怎么修改呀

Dim msg As String = e.Message
If msg.StartsWith("U#") Then '表示修改了某行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
        Dim dr As DataRow = DataTables(pts(1)).Find("[_Identify] = " & pts(2))
        If dr IsNot Nothing  Then
            dr.Load() '重新加载此行
        End If
    End If
ElseIf msg.StartsWith("A#") Then '表示增加了行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
         DataTables(pts(1)).AppendLoad("[_Identify] = " &  pts(2)) '追载新增加的行.
    End If
ElseIf msg.StartsWith("D#") Then '表示删除了行
    Dim pts() As String = msg.Split("#")
    If pts.Length = 3 Then
         DataTables(pts(1)).RemoveFor("[_Identify] = "  & pts(2)) '移除行
    End If
End If

62楼的代码中，虽然不同用户在使用软件时都是使用的数据源名称相同，但是链接的数据库是不同，怎么修改63、66楼的代码，虽然使用同一个数据源但是能够根据不同的数据库更新

你传递过来的时候，就不能把正确的数据库名传递过来？判断一下数据库名和自己连接的数据库名是否相同，再做操作。