提示的错误看不懂 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提示的错误看不懂

共有1493人关注过本帖树形打印复制链接主题：提示的错误看不懂

erdbeer

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

加好友

发短信

等级：一尾狐帖子：445 积分：4777 威望：0 精华：0 注册：2010/4/11 14:09:00

提示的错误看不懂 发帖心情

Post By：2016/4/14 0:26:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160414001710.png

    Dim r2 As Row = Tables("开fa piao.fa piao明细").Current()
    Dim r1 As Row = e.Table.Current()
    r2("数量")=r1("数量")
    r2("单价")=r1("单价")
    r2("号码")=r1("号码")
    e.Form.DropDownBox.Value = r1("品名")

Forms("明细").DropDownBox.CloseDropDown()

执行这段代码后，出现这个提示，不知道是哪里的问题，在更早些的版本中是正常的（哪一版忘记了）

[此贴子已经被作者于2016/4/14 0:27:15编辑过]

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/4/14 8:30:00 [只看该作者]

Dim r2 As Row = Tables("开fa piao.fa piao明细").Current()

Dim r1 As Row = e.Table.Current()

If r1 IsNot Nothing AndAlso r2 IsNot Nothing Then

r2("数量")=r1("数量")

r2("单价")=r1("单价")

r2("号码")=r1("号码")

e.Form.DropDownBox.Value = r1("品名")

Forms("明细").DropDownBox.CloseDropDown()

End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/14 9:30:00 [只看该作者]

不应该是那你这段代码有问题。你去看看 DropDownBox 控件的事件，以及表dataColChanged事件。

或者这样试一下

SystemReady = False

Dim r2 As Row = Tables("开fa piao.fa piao明细").Current()

Dim r1 As Row = e.Table.Current()

If r1 IsNot Nothing AndAlso r2 IsNot Nothing Then

r2("数量")=r1("数量")

r2("单价")=r1("单价")

r2("号码")=r1("号码")

e.Form.DropDownBox.Value = r1("品名")

Forms("明细").DropDownBox.CloseDropDown()

End If

SystemReady = True

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

主题：提示的错误看不懂