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

If e.Form.DropDownBox.name="DropBox1" Then
    Dim tbl As Table = Tables("窗口4_Table1")
    Dim tbl1 As Table = Tables("客户资料")
    If tbl1.Current IsNot Nothing Then
        If tbl.current.isnull("客户编号") = False Then
            msgbox("已占用")
        Else
            e.Form.DropDownBox.Value = tbl.Current("商户编号")
            tbl.Current("客户编号")  = tbl1.Current("客户编号")
            tbl.Current("法人姓名")  = tbl1.Current("客户姓名")
        End If
    End If
ElseIf e.Form.DropDownBox.name="shanghubianhaoDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "机具库存资料"
    Dim tbl As Table = Tables("窗口4_Table1")
    Dim tbl1 As Table = Tables("机具库存资料")
    If tbl.Current IsNot Nothing Then
        If tbl.current.isnull("机具编号") = False Then
            msgbox("已占用")
        Else
            e.Form.DropDownBox.Value = tbl.Current("商户编号")
            tbl.Current("机具编号")  = tbl1.Current("机具编号")
            tbl.Current("机具条码")  = tbl1.Current("机具条码")
            tbl1.Current("商户编号")  = tbl.Current("商户编号")
        End If
    End If
   
End If
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
    e.Form.DropTable.FinishEditing()
Else '如果是通过窗口下拉的
    e.Form.DropDownBox.WriteValue()
End If

If  e.Selected  Then
    Dim tbl As Table = Tables("入库商户选择_Table1")
    Dim tbl1 As Table = Tables("客户资料")
    Dim Result As DialogResult
    If tbl1.Current IsNot Nothing Then
        If tbl.current.isnull("客户ID") = False Then
            Result = MessageBox.Show("该商户已经绑定客户,是否重新绑定新客户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.No Then
                Return
            Else
                e.Form.DropDownBox.Value = tbl.Current("商户ID")
                tbl.Current("客户ID")  = tbl1.Current("客户ID")
                tbl.Current("法人姓名")  = tbl1.Current("客户姓名")
                msgbox(tbl1.Current("客户姓名") & "客户成功绑定商户 ")
            End If
        End If
       
    ElseIf e.Form.DropDownBox.name="shuanghuIDDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "商户存资料"
                    If tbl.Current IsNot Nothing Then
            Result = MessageBox.Show("该商户已经绑定客户,是否重新绑定新客户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.No Then
                Return
            Else
                e.Form.DropDownBox.Value = tbl.Current("客户ID")
                tbl1.Current("客户ID")  = tbl1.Current("客户ID")
                tbl1.Current("法人姓名")  = tbl1.Current("客户姓名")
            End If
        End If
    End If
End If
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
    e.Form.DropTable.FinishEditing()
Else '如果是通过窗口下拉的
    e.Form.DropDownBox.WriteValue()
End If

这句代码哪错了，怎么在窗体的"shuanghuIDDropBox" 控件操作时都不赋值呀

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

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

操作客户信息窗体的DropBox1不管用

老师怎么在商户资料表中的客户编号字段选择数据时如果该字段有数据他也不判断呀？在窗体中操作时客户编号没有数据他也提示该字段有数据的，不知什么原因

我的窗体和表还有要想实现的结果如下：“客户信息窗体”中的"shanghubianhaoDropBox"控件、“机具库存资料表”中的“商户编号”字段  和 “机具库存入库窗体”中的“shanghubianhaoDropBox ”三个都是调用同一个下拉窗口“窗口4”的。

（一）当“客户信息窗体”中的"shanghubianhaoDropBox"控件调用下拉窗口时执行：（1）首先判断“商户资料表”中“客户编号”字段是否有数据，如果有数据则提示客户是否解除原来的客户绑定新客户，如果选择是则执行清空原来的数据绑定新数据，如果选择否则不执行任何操作，如果无数据则执行直接绑定客户；（2）将“机具编号"和"机具条码"字段直接赋值给"商户资料表"的相应字段中。

（二）当“机具库存资料表”中的"商户编号"字段和“机具库存入库窗体”中的“shanghubianhaoDropBox ” 控件调用下拉窗口时执行：（1）首先判断"机具库存资料表"中的"商户编号"字段是否有数据，如果有数据则提示客户是否解除原来的商户绑定新商户，如果选择是则执行清空原来的数据绑定新数据，如果选择否则不执行任何操作，如果无数据则执行直接绑定商户；（2）将“客户编号"和"客户姓名"字段直接赋值给"商户资料表"的相应字段中；将“商户编号"和"商户名称"字段直接赋值给"机具库存资料表"的相应字段中，并将"机具库存资料表"的“机具是否绑定”字段更新为已绑定状态。

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

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