主题：用户数据表有问题。。

各位老师，不知道为什么会这样。。。

 

此主题相关图片如下：有设置主键.jpg

我新建一个项目也是。只有开发者才进的去。。别的登录名都是那样。。。

甜老师，没有空行。。。

  

此主题相关图片如下：修改用户属性事出现.jpg

甜老师，

 

我改了初始密码 之后，就可以进去。但是需要一个一个改，才能每个都能进去

 

这是啥情况。。。

哦。我把这张表删掉，重新建一张用户数据表。

 

config还是空的。

 

要怎么样config才不是空的呢？

此主题相关图片如下：现在的情况.jpg

我的name 的列是 做了计划 填充而来的：

 

Dim Vals As List(of String())
Vals = DataTables("StoreDefine").GetValues("fchrStoreCode|fchrStoreName")
For i As Integer = 0 To Vals.Count - 1
    If DataTables("VIP会员系统登录用户数据表").Find("name = '" & Vals(i)(0) & "'and 名称 = '" & Vals(i)(1) & "' ") Is Nothing Then
        Dim dr As DataRow = DataTables("VIP会员系统登录用户数据表").AddNew()
        dr("name") = Vals(i)(0)
        dr("名称") = Vals(i)(1)
DataTables("VIP会员系统登录用户数据表").save()
    End If
Next

Dim Vals2 As List(of String())
Vals2 = DataTables("Operator").GetValues("fchrLandName|fchrOperatorName")
For i As Integer = 0 To Vals2.Count - 1
    If DataTables("VIP会员系统登录用户数据表").Find("Name = '" & Vals2(i)(0) & "'and 名称 = '" & Vals2(i)(1) & "' ") Is Nothing Then
        Dim dr As DataRow = DataTables("VIP会员系统登录用户数据表").AddNew()
        dr("Name") = Vals2(i)(0)
        dr("名称") = Vals2(i)(1)
DataTables("VIP会员系统登录用户数据表").save()
    End If
Next

 

 

type 列的值是  在 表属性的  DataRowAdding  写   e.DataRow("type") = 1  得来的。

 

哦。确实是这样。

 

要怎么赋值呢？

哦。谢谢Bin老师，有点甜老师。

 

我的情况是这样：

 

原有的ERP里有两张表，一张是门店表，一张是管理人员的表。

我要做用户数据表，

需要将 门店表的 门店编号 的这一列 和 管理人员表的  人员编号 这一列  都放在 用户数据表 下的  name  这一列里。而且是要实时的，只要原有的ERP有增加，我这里就会自动增加。

为这个挺头疼的，不知道要怎么做才合理。

 

 

我之前是这样做的：

 

先将 门店表  和 管理人员 表在 都加载到项目里，

 

If e.DataTableName = "StoreDefine" Then
 e.SelectString = "Select fchrStoreDefineID ,fchrStoreCode ,fchrStoreName From {StoreDefine} Where [fbitUsed] = 1"

End If

 

If e.DataTableName = "Operator" Then
 e.SelectString = "Select fchrOperatorID ,fchrLandName ,fchrOperatorName From {Operator} Where [fbitStoped] = 0 and [fbitNoUsed] = 0 "

End If

 

然后再用计划来填充这门店编号和人员编号到用户数据表里：

 

Dim Vals As List(of String())
Vals = DataTables("StoreDefine").GetValues("fchrStoreCode|fchrStoreName")
For i As Integer = 0 To Vals.Count - 1
    If DataTables("VIP会员系统登录用户数据表").Find("name = '" & Vals(i)(0) & "'and 名称 = '" & Vals(i)(1) & "' ") Is Nothing Then
        Dim dr As DataRow = DataTables("VIP会员系统登录用户数据表").AddNew()
        dr("name") = Vals(i)(0)
        dr("名称") = Vals(i)(1)
DataTables("VIP会员系统登录用户数据表").save()
    End If
Next

Dim Vals2 As List(of String())
Vals2 = DataTables("Operator").GetValues("fchrLandName|fchrOperatorName")
For i As Integer = 0 To Vals2.Count - 1
    If DataTables("VIP会员系统登录用户数据表").Find("Name = '" & Vals2(i)(0) & "'and 名称 = '" & Vals2(i)(1) & "' ") Is Nothing Then
        Dim dr As DataRow = DataTables("VIP会员系统登录用户数据表").AddNew()
        dr("Name") = Vals2(i)(0)
        dr("名称") = Vals2(i)(1)
DataTables("VIP会员系统登录用户数据表").save()
    End If
Next

 

但是这样问题重重。。。哎

 

不知道各位老师就这种情况有没有好的思路。。。

哦，这样啊。那我试一下。