以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于数据下载过虑  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94621)
--  作者：初学者阿成
--  发布时间：2016/12/28 11:11:00
--  关于数据下载过虑
If e.DataTableName = "期间汇率" Then
   Dim aa As String=user.extendedvalues("数据期间")
    Dim exp As String
    exp=cexp("Select * Fr om {期间汇率} Where [年月]=\'{0}\'",aa)  
    e.SelectString = exp
    output.show(exp)
End If

在beforeloadouterdata事件中加入上述程序段，没有起作用，即无下载到数据期间为‘201612’的数据，而且直接退出程序，求教为什么？是否是引用“user.extendedvalues("数据期间")”的原因。
--  作者：有点色
--  发布时间：2016/12/28 11:15:00
--  

最上面，加入msgbox(exp)，看弹出什么

 

[此贴子已经被作者于2016/12/28 11:33:18编辑过]
--  作者：初学者阿成
--  发布时间：2016/12/28 11:18:00
--  
已试过了，没有弹出。我使用的是外部表。
--  作者：有点色
--  发布时间：2016/12/28 11:27:00
--  

 那在最上面写

 

msgbox(e.user.extendedvalues("数据期间"))

 

[此贴子已经被作者于2016/12/28 11:33:36编辑过]
--  作者：初学者阿成
--  发布时间：2016/12/28 11:29:00
--  
这是原来的程序段，没有show(1)看到，后没有任何弹出。
If e.DataTableName = "期间汇率" Then
    messagebox.show(1)
    Dim aa As String=user.extendedvalues("数据期间")
    messagebox.show(2)
    Dim exp As String
    exp=cexp("Select * Fr om {期间汇率} Where [年月]=\'{0}\'",aa)
    messagebox.show(3) 
    MessageBox.Show(exp)    
    messagebox.show(4)
    e.SelectString = exp
   
End If
--  作者：初学者阿成
--  发布时间：2016/12/28 11:30:00
--  
应该是只有show(1)有弹出，但后面的几个都没有作用。
--  作者：有点色
--  发布时间：2016/12/28 11:33:00
--  

哦，要写成

 

e.user.extendedvalues("数据期间")

[此贴子已经被作者于2016/12/28 11:33:01编辑过]
--  作者：初学者阿成
--  发布时间：2016/12/28 11:48:00
--  
改成 “e.user.extendedvalues("数据期间")”，OK了，谢。