[求助]自定义录入界面4 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自定义录入界面4

共有9039人关注过本帖树形打印复制链接主题：[求助]自定义录入界面4

whtjtx

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：53 积分：528 威望：0 精华：0 注册：2012/1/20 14:52:00

[求助]自定义录入界面4 发帖心情

Post By：2012/2/29 23:57:00 [只看该作者]

此主题相关图片如下：未命名.jpg

按照帮助做了个下拉窗口，运行的时候出错，请问是怎么回事？？？

请贺老师帮忙看下这个示例中，订单表的窗口2中，当客户ID，选中填入输入框时，后面对应的输入框根据客户表中内容自动填写，这个代码该如何改？？谢了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.table

[此贴子已经被作者于2012-3-1 1:57:42编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/3/1 7:44:00 [只看该作者]

要变通：

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口1_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("客户ID")
    End If
    Dim r As Row = Tables("订单表").Current
    r("列1") = tbl.Current("列1")
    r("列2") = tbl.Current("列3")
    r("列3") = tbl.Current("列4")
    e.Form.DropDownBox.CloseDropDown()
End If

whtjtx

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：53 积分：528 威望：0 精华：0 注册：2012/1/20 14:52:00

Post By：2012/3/1 10:25:00 [只看该作者]

上面这个错误提示是什么意思？

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/3/1 10:27:00 [只看该作者]

整数列不能用like比较

下一主题 >> << 上一主题

主题：[求助]自定义录入界面4