以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助：这段代码应该怎么写？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95168)
--  作者：huangxueyao
--  发布时间：2017/1/12 0:37:00
--  求助：这段代码应该怎么写？
客户地址表中，有N个客户的详细地址，每个客户有N个地址，每个客户只能有一个默认地址。

在编辑客户地址时，点击默认地址的话，如果这个客户已经有默认地址了，对话框提醒。
--  作者：有点色
--  发布时间：2017/1/12 2:08:00
--  

 1、加一列，标记是否为默认地址。

 

 2、当勾选成为默认地址的时候，编写datacolchanging事件

 

If e.DataCol.Name = "默认地址" andalso e.newvalue = true Then
    Dim fdr As DataRow = e.DataTable.Find("客户名称 = \'" & e.DataRow("客户名称") & "\' and 默认地址 = true")
    If fdr IsNot Nothing Then
        e.cancel = True
        msgbox("已存在默认地址")
    End If
End If