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

甜老师如果是在窗体上下拉窗口DropDownBox控件怎么判断到底是哪各表进入的呢？

 

直接判断窗口名，或者控件名。参考我给你发的例子。

判断 e.form.dropTable

获得控件名或窗体名句柄是什么

 

控件名 e.Form.DropDownBox.name

 

窗口名 e.Form.DropDownBox.form.name

我怎么在“客户信息窗体”中选择一个客户，想将该客户绑定一个商户，选择商户编号的DropDownBox下拉控件下载一个商户双击该商户后即可将“客户资料表”中所选择的数据的“客户编号”和"客户姓名"直接添加到该商户编号对应的各字段中。

 

现在一运行就错误

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

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

If e.Selected 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
    If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
        e.Form.DropTable.FinishEditing()
    Else '如果是通过窗口下拉的
        e.Form.DropDownBox.WriteValue()
    End If
End If

商户资料表的客户编号字段能设置成当焦点进入该字段的时候该字段就处于编辑状态并且该字段如果有数据时就已客户编号的形式显示，如果离开焦点的时候就已法人姓名的方式显示吗？

 

编写drawcell事件

 

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

 

我在下拉窗口的DropDownClosed事件中编写如下代码运行后：

在机具库存入库窗体的"shanghubianhaoDropBox"的控件上和 机具库存资料的商户编号字段上查找数据没反应呢？

老师看看哪错了？

 

 

 

If e.Form.DropDownBox.name="DropBox1" Then
    If e.Selected 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.dropTable.Name = "机具库存资料"  Or e.Form.DropDownBox.name="shanghubianhaoDropBox"
        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("商户编号")
                Tables("机具库存资料").Current("商户名称")=tbl.Current("商户名称")
                tbl.Current("客户编号")  = tbl1.Current("客户编号")
                tbl.Current("客户姓名")  = tbl1.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
End If

 

 

 

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

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