我正在使用Access VBA,我正在尝试修改现有代码以添加弹出框.此弹出框是另一种形式,当用户单击此表单上的按钮时,我希望填充基本表单上的文本框.之后弹出窗口消失,然后我需要从基本表单上的文本框中访问该值.
顺序应如下所示:
1)基本表单按钮单击调用模式弹出窗口
2)单击弹出窗口上的按钮将值保存到基本表单的文本框,然后返回控件.
3)基础形式然后使用此值来做某事.
我有一些代码,但它不能正常工作.任何人都可以看到这里遗失的东西,并帮助我纠正？
基本表格
Sub base()
DoCmd.OpenForm "PaperType", , , , , acDialog
MsgBox Me.TheAnswer 'This line gives a null error
End Sub
弹出窗体
Private Sub btnRolls_Click()
'Me.Tag = 1
Forms!ReceiptDetail_sfrm!TheAnswer = 1
Me.Visible = False
End Sub
Private Sub btnSheets_Click()
'Me.Tag = 4
Forms!("ReceiptDetail_sfrm").TheAnswer = 4
Me.Visible = False
End Sub
我想我可以从更有经验的用户那里使用一些帮助...我在表中有一个整数字段名称,我们在表SO中将其称为SO_ID,并且我需要根据以下内容计算新的SO_ID.规则
1)SO_ID由6个字母组成,其中前3个是区号,最后3个是该区域内的序列号.
309001
309002
309003
2)所以下一个新行的SO_ID值为
309004
3)如果有人删除了SO_ID值= 309002的行,那么下一个新行必须回收这个值,所以下一个新行必须有SO_ID值
309002
任何人都可以请我提供SQL函数或PL/SQL(可能是一个直接的触发？)函数,它将返回我需要使用的下一个可用的SO_ID？我估计我可以在我的sql中使用关键字rownum,但是接下来只是运行不正常
select max(so_id),max(rownum) from(
select (so_id),rownum,cast(substr(cast(so_id as varchar(6)),4,3) as int) from SO
where length(so_id)=6
and substr(cast(so_id as varchar(6)),1,3)='309'
and cast(substr(cast(so_id as varchar(6)),4,3) as int)=rownum
order by so_id
);
谢谢你的帮助!
我正在努力查询需要SUM DISTINCT Rows的查询.必须有办法做到这一点......但我迷路了.
这是我得到的:
SELECT DISTINCT Zipcodes.CountyID,
us_co_est2005_allData.PopEstimate2005,
us_co_est2005_allData.EstimatesBase2000,
users_link_territory.userID
FROM
Zipcodes Inner Join Users_link_territory ON zipcodes.CountyID =
Users_link_territory.CountyID Inner Join
us_co_est2005_alldata ON zipcodes.FIPS = us_co_est2005_alldata.State AND zipcodes.code
= us_co_est2005_alldata.County
WHERE (users_link_territory.userid = 4)
这给了我34行,它们为属于userid4的每个县提供了不同的人口数,但是我如何获得PopEstimate2005和EstimatesBase2000的SUM？
像(但这不是一个合法的查询):
SELECT DISTINCT Zipcodes.CountyID,
SUM(us_co_est2005_allData.PopEstimate2005) AS Population2005,
SUM(us_co_est2005_allData.EstimatesBase2000) AS Population2000,
users_link_territory.userID
FROM
Zipcodes Inner Join Users_link_territory ON zipcodes.CountyID =
Users_link_territory.CountyID Inner Join
us_co_est2005_alldata ON zipcodes.FIPS = us_co_est2005_alldata.State AND zipcodes.code
= us_co_est2005_alldata.County
WHERE (users_link_territory.userid = 4)
GROUP BY users_link_territory.userid
当然,只要我将Zipcodes.CountyID添加到GroupBy的末尾,我就会再次回到我的34行.
非常感谢您的帮助.
拉塞尔舒特.....
获得以下帮助后 - 特别是Robb的帮助 - …
我理解概念之间的一般差异
Class, Method, Field, Annotation, ...),和TypeMirror, TypeElement, ...).但有人可以请深入比较这两个概念(或指向一个资源,它在哪里完成)？
例如,哪个概念提供了另一个不提供的信息......
谢谢.
如何阻止从树视图中选择节点？我尝试使用isselected,但它不起作用.
TreeNode node_serie = node_bad.Nodes.Add
(lab_ser.Text);
node_serie.Tag = k;
node_serie.IsSelected = false;
将空字符串传递给正则表达式对象时,搜索结果是匹配对象而非None.应该是没有,因为没有什么可以匹配的？
import re
m = re.search("", "some text")
if m is None:
print "Returned None"
else:
print "Return a match"
顺便说一句,使用特殊符号^并$产生相同的结果.
正如其他几篇文章中所述(请参阅下面的参考资料)我试图创建响应过滤器,以便修改由另一个Web应用程序生成的内容.
我将基本的字符串转换逻辑工作并封装到源自公共FilterBase的Filters中.但是,逻辑必须对完整内容进行操作,而不是对内容进行操作.因此,我需要在写入时缓存块,并在完成所有写入时执行过滤器.
如下所示,我创建了一个从MemoryStream派生的新ResponseFilter.在写入时,内容缓存到另一个MemoryStream.在Flush上,现在在MemoryStream中的完整内容将转换为字符串,并且Filter逻辑将启动.然后将修改后的内容写回原始流.
但是,在每个第二个请求(基本上当一个新的过滤器在前一个过滤器上实例化)时,正在执行前一个过滤器的Flush方法.此时,由于_cachedStream为空,应用程序在_outputStream.Write()方法上崩溃.
活动顺序如下:
我有几个问题:
注意:如果我不重写Close方法,我会遇到完全相同的行为(减去Close事件).
public class ResponseFilter : MemoryStream
{
private readonly Stream _outputStream;
private MemoryStream _cachedStream = new MemoryStream(1024);
private readonly FilterBase _filter;
public ResponseFilter (Stream outputStream, FilterBase filter)
{
_outputStream = outputStream;
_filter = filter;
}
// Flush is called on the second, fourth, and so on, page request (second request) with empty content.
public override void Flush() …我正在努力获得迈克尔哈特尔的Rails教程.我花了很多时间与各种图书馆作斗争.所以我从我的Ubuntu 10.4系统中删除了所有ruby软件.
然后我安装了Ruby 1.9.2.
$ ruby -v
ruby 1.9.2dev (2010-07-02) [i486-linux]
到现在为止还挺好.然后我做了
sudo gem install rails
很长一段时间后,它完成了安装.然后我跑了
$ rails -v
bash: /usr/bin/rails: /usr/bin/ruby1.8: bad interpreter: No such file or directory
所以...我的系统上没有/usr/bin/ruby1.8.如何让Rails 3.0.3在/ usr/bin/ruby中使用我的ruby？
我感谢你能给我的任何帮助.
只是想知道我是否可以坚持下去,我试过了
$ cd /usr/bin
$ sudo ln -s ruby1.9.2 ruby1.8
这让我继续前进,但这是正确的做法吗？
我只是想为Windows编写一个非常简单的C++程序,它只使用GUI.什么C++库是免费的,允许我这样做？(此代码不是,也绝不会是开源代码).