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

老师这样客户编号会不会和已有的数据客户编号发生冲突呀？

 

不会。如果出问题，你不保存，即可。

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

什么没反应？上传实例说明问题

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

点击浏览该文件:客户关系表 (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

看38楼