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


  共有9916人关注过本帖树形打印复制链接

主题:[求助]自定义录入界面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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望: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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/1 10:27:00 [只看该作者]

整数列不能用like比较

 回到顶部