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

 

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

 

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

 

表达式列不能做主键。

 

编码，参考 http://www.foxtable.com/webhelp/scr/2403.htm

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104150&replyID=713724&skin=1

 

老师我想用“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未声明，老师看看哪错了

datarowadded事件

 

Dim lb As  String = "KH"

Dim max  As  String
Dim idx  As  Integer
max = e.DataTable.Compute("Max(客户编号)","客户编号 like '" & lb & "%'")
If max > ""  Then  '如果存在最大编号
    idx = CInt(max.Substring(lb.length)) + 1  '获得最大编号的后三位顺序号,并加1
Else
    idx = 1  '否则顺序号等于1
End  If
e.DataRow("客户编号") = lb & Format(idx,"000000")

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

 

做个按钮

 

Dim dt As DataTable = DataTables("表A")
Dim idx As Integer = 1
For Each dr As DataRow In dt.Select("")
    dr("客户编号") = "KH" & Format(idx,"000000")
    idx += 1
Next

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

怎么单击按钮把所有的客户编号重新编号了,能不能不改变已有数据的客户编号？

Dim dt As DataTable = DataTables("表A")
Dim idx As Integer = 1
For Each dr As DataRow In dt.Select("客户编号 is not 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