主题：关于数据库表关系建立

这三张表，(1)其中两张都应该和客户表建立关系的，客户表应为父表和其他两个应为子表建立一对多的关系，我想实现的是在其他两张表中一眼能看出客户是谁而不是一些客户编号；注：建立关系是以客户资料表中的客户编号建立关系的。(2)商户表和机具表也应该建立一个一对多的关系，第一是一眼能知道这个商户目前有几台机器（以机具条码号的形式出现在商户表中不是以机具编号的形式出现的）；第二是在机具表中一眼就能看出这台机具是哪个商户在使用（要以商户名称的形式出现而不是商户编号的形式出现在机具表中）注：建立关系是以商户表中的商户编号建立关系的

表达式能做主键吗？怎么设置主键列自动填充呀？并且主键命名以前缀特殊字母符号+数字自动升序

老师我想用“KH”+6位数字组成作为客户编号主键码，位数如不够用0补足位数，增加数据时以升序的方式增加主键码。

Dim lb As  String = "KH"
If e.DataRow("客户编号").StartsWith(lb) = False  '如果单据编号前缀不符
    Dim max  As  String
    Dim idx  As  Integer
    max = e.DataTable.Compute("Max(客户编号)","& lb  & " And [_Identify] <> " & e.DataRow")) '取得该类别的最大编号
    If max > ""  Then  '如果存在最大编号
        idx = CInt(max.Substring(2,3)) + 1  '获得最大编号的后三位顺序号,并加1
    Else
        idx = 1  '否则顺序号等于1
    End  If
    e.DataRow("客户编号") = lb & Format(idx,"000")
End If

运行时出错说"_Identify未声明，老师看看哪错了

数据表中以前有几千条数据怎么自动编上号呢

能不改变已有数据的客户编号吗？

按单机按钮怎么没反应呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:客户关系表 (1).table

 

 

点击添加客户编号按钮没反应

老师这样把以前已经存在的数据客户编码全给重新命名了，如果已有的数据客户编号不变，怎么处理呢？

[

Dim dt As DataTable = DataTables("客户资料")
Dim max  As  String
Dim idx  As  Integer
max = dt.Compute("Max(客户编号)","客户编号 like 'KH%'")
If max > ""  Then  '如果存在最大编号
    idx = CInt(max.Substring(2)) + 1  '获得最大编号的后三位顺序号,并加1
Else
    idx = 1  '否则顺序号等于1
End  If

For Each dr As DataRow In dt.Select("客户编号 is null")
    Dim str As String = "KH" & Format(idx,"000000")
    Dim fdr As DataRow = dt.find("客户编号 = '" & str & "'")
    If fdr Is Nothing
        dr("客户编号") = str
    End If
    idx += 1
Next

此主题相关图片如下：改前 (2).png

 

 

此主题相关图片如下：改之后.png

如果有的是窗体组合框输入数据时，组合框怎么和表中的动态数据字典同步呀