以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提示的错误看不懂  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83657)
--  作者：erdbeer
--  发布时间：2016/4/14 0:26:00
--  提示的错误看不懂


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

 

 

 

    Dim r2 As Row = Tables("开发票.发票明细").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
--  发布时间：2016/4/14 8:30:00
--  
Dim r2 As Row = Tables("开发票.发票明细").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
--  作者：大红袍
--  发布时间：2016/4/14 9:30:00
--  

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

 

 或者这样试一下

 

SystemReady = False

Dim r2 As Row = Tables("开发票.发票明细").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