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

已更新最新版本运行“商户信息窗体”单击"DropDownBox"控件选择数据双击数据行就会出错

 

此主题相关图片如下：156.png

 

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

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

 

 

此主题相关图片如下：589.png

测试没有问题

全删了还是不行的，在表中运行没问题，就是在窗体在的DropDownBox控件运行时出错

把  DropDownClosed事件中的

       tbl.Current("商户编号") = e.Form.DropTable.current("商户编号")
            tbl.Current("商户名称")  = e.Form.DropTable.current("商户名称")

 

代码删除就正常了，您看看怎么回事？

我认为应该是代码的问题不是系统问题

 

改成

 

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口3_Table1")
    If tbl.Current IsNot Nothing Then
        If tbl.current.isnull("商户编号") = False Then
            msgbox("已占用")
        Else
            e.Form.DropDownBox.Value = tbl.Current("机具编号")
             Tables("商户资料").Current("机具条码")  = tbl.Current("机具条码")
            tbl.Current("商户编号") = Tables("商户资料").current("商户编号")
           tbl.Current("商户名称")  = Tables("商户资料").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

田老师这样改的话有两个疑问,（1）向机具库存表添加数据能确保是所选择行的客户编号和客户姓名字段吗？（2）在窗体运行可能没问题如果是在表中运行会出错吗？

 根据你的例子，改代码后没问题。

怎样设置一下如果在商户表机具编号字段或窗体的输入框控件中输入数据没有双击下拉窗口中的数据时当离开该字段时多一个判断,如果心里窗体绑定的数据中有所输入的数据时怎正常执行,如果所输入的数据在下拉窗口所绑定的数据没有所输入的数据时则弹出一个提示框提示客户所输入的数据,数据库中不存在，并同时清空表中机具编号字段中或窗体输入框控件中所输入的数据。

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

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

田老师不行：在窗体运行后选择客户编号后机具库存表添加的不是所选的的数据而是表中鼠标所在的位置的数据

第二是机具明明未被站用老是提示被占用

 

 

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

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

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

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