小编App*_*Pie的帖子

我在访问2007中使用switch语句,我想知道如何指定默认值

select 
  switch
  (
  MyCol = 1, 'Value is One',
  MyCol = 2, 'Value is Two'
  ) from MyTable

谢谢

在我正在处理的这个Access表单上,我有一个全局变量,它从Form_Load事件的另一个表单中获取其值.由于某些原因我不知道变量"失去它的值"(变成="")经过一段时间后或某些事件发生.我无法注意到触发此行为的任何特定内容.在表单上"不活动"一段时间后,全局变量是否重置？

以下是我设置我正在讨论的全局变量的方法:

Private Sub Form_Load()       
    '...
    Set prev_form = Form_Identification.Form
    PasswordSybase = prev_form.Password.Value & vbNullString
    UserSybase = prev_form.UserID.Value & vbNullString
    '...
End Sub

我知道这是一个非常基本的问题,但我不明白R中的含义是什么意思.

作为参考,我做了一个简单的脚本来读取CSV表,过滤其中一个字段,将其传递给一个新变量并清除为第一个变量分配的内存.如果我在我过滤的字段上调用unique(),我会看到结果确实被过滤了,但是还有一行显示与原始数据集中的数据相对应的"级别".

例:

df = read.csv(path, sep=",", header=TRUE)
df_intrate = df[df$AssetClass == "ASSET CLASS A", ]

rm(df)
gc()

unique(df_intrate$AssetClass)

结果:

[1] ASSET CLASS A
Levels: ASSET CLASS E ASSET CLASS D ASSET CLASS C ASSET CLASS B ASSET CLASS A

df尽管R studio显示df_intrate确实是预期的行数,但结构信息是否以某种方式保留在df_intrate中ASSET CLASS A？

我刚刚解决了一个问题,我将"Set"关键字放在定义行中,但我想知道的是"为什么"？

基本上,我这样做:

Dim startCell, iCell as Range
For Each iCell in Range(whatever)
    If iCell.value <>"" Then
        Set startCell = Cells(iCell.Row + 1, iCell.Column)
    End If
Next iCell

如果省略"Set"关键字,代码仍然编译正常,但在局部变量窗口中,我看到它的类型更改为"String"而不是"Variant/Object/Range".为什么会这样？

嘿,我刚刚开始学习Java课程,我将很快开始学习(是的,我是一个书呆子,我在开始上课前学习).我想把几个概念放在一起,以了解一切如何在Java中协同工作.

现在,我想要尝试做的是一个简单的Shape(Forme in french)类,它至少有1-2个类继承自它,并在集合对象中创建一些实例.我也想让那些类泛型也尝试一下.那是我遇到麻烦的部分.

我已经习惯了C++,所以这可能是混乱的地方,但似乎我不能使用泛型,所以,例如,我可以指定尺寸将在,例如,Integer或Double或Float或其他.可能吗 ？

由于base和,下面的GetArea()方法无法编译hauteur.

package testconcepts;

import java.util.*;
import java.lang.*;

abstract class Forme <T extends Number> {
    protected String nom_forme;

    String NomForme() { return nom_forme; }

    abstract Double GetArea();
}

class Triangle <T extends Number> extends Forme {
    protected T base, hauteur;

    Triangle() { 
        this.nom_forme = "TRIANGLE"; 
    }

    @Override
    Double GetArea() { return base * hauteur / 2; }

    T GetBase() { return base; }
    T GetHauteur() { return hauteur; } …

这是另一个奇怪的.

我有这个代码,它使用过滤器从一张纸上获取数据,并使用该Range.SpecialCells()方法查找要复制和粘贴的相应行.但是,如果我使用Rows().SpecialCells()或者如果我使用行SpecialCells数返回的行属性是错误的.这就是我的意思:

With Worksheets("ret-" & sNumRet)
    .EnableAutoFilter = True
    .AutoFilter.Range.AutoFilter Field:=3, Criteria1:=sSection
    iLast = Range("C1").End(xlDown).Row
    numRows = .Range("B2:B" & iLast).SpecialCells(xlCellTypeVisible).Cells.Count
End With

这段代码产生大约8k行,这是一个有意义的数字.

With Worksheets("ret-" & sNumRet)
    .EnableAutoFilter = True
    .AutoFilter.Range.AutoFilter Field:=3, Criteria1:=sSection
    iLast = Range("C1").End(xlDown).Row
    numRows = .Rows("2:" & iLast).SpecialCells(xlCellTypeVisible).Rows.Count
End With

结果产量为4.

With Worksheets("ret-" & sNumRet)
    .EnableAutoFilter = True
    .AutoFilter.Range.AutoFilter Field:=3, Criteria1:=sSection
    iLast = Range("C1").End(xlDown).Row
    numRows = .Range("B2:B" & iLast).SpecialCells(xlCellTypeVisible).Rows.Count
End With

结果也产生4.这两者当然都是错的.我有45k行数据,我可以看到使用过滤器显示至少几千个.这些陈述之间是否存在某些意义上的差异？我希望它们在这里的上下文中几乎相同.

谢谢 !

我正在按照Java : The complete reference 8th edition (JDK 7)AWT 上的示例进行操作，但无法在出现的窗口上成功显示字符串。大小和标题设置正确，窗口显示。如果我在 Paint() 方法的控制台上输出一个字符串，我会看到它实际上被调用了几次，但该字符串没有出现在我的应用程序窗口中。我看不出我在哪里偏离了这个例子；我实际上有一点代码（他们添加了一个鼠标侦听器和一个键侦听器）：\

import java.awt.Dimension;
import java.awt.Frame;
import java.awt.Graphics;
import java.awt.event.WindowAdapter;
import java.awt.event.WindowEvent;

public class Main {
    public static void main(String[] args) {
        Application app = new Application();
        app.setSize(new Dimension(640, 480));
        app.setTitle("This is a test");
        app.setVisible(true);
    }
}

class MyWindowAdapter extends WindowAdapter {
    public void windowClosing(WindowEvent we) {
        System.exit(0);
    }
}

class Application extends Frame {
    public Application() {
        addWindowListener(new MyWindowAdapter());
    }

    public void paint(Graphics g) {
        System.out.println("Hey hey …

我今天遇到了这个有趣的问题.我在另一个循环中有一个循环,它们都Find用于不同的目的.发生的事情是Find在内部环路中使用螺钉拧紧Find外部环路.我猜excel只记忆一个搜索实例.有没有办法解决这个问题,还是设计问题？

这是我的代码的一些缩短版本.

Sub Main()
    'Some boring stuff

    Set lst_rapports = Worksheets("mappingTRANSIT").range("lst_rapports")
    Set first_result = lst_rapports.Find(rap_choisi)
    Set active_result = first_result

    Sheets("req01").Unprotect "shoobidoowap"
    If Not first_result Is Nothing Then
        ' ...            
        Do
            Sheets("req01").Select            
            ' ...
            For i = 0 To 4
                Set rubrique_cell = range("E:E").Find(rub(i))
                If Not rubrique_cell Is Nothing Then
                    ' ...
                End If
            Next i                
            ' Yet more boring stuff...

            Set active_result = lst_rapports.FindNext(active_result)
        Loop Until active_result.Address = first_result.Address
    Else
        MsgBox "Impossible …

首先,我搜索并阅读了类似的线程,我已经尝试了所提出的解决方案并解决了其他人的问题(主要使用工作簿名称周围的单引号),但它在我的情况下没有用.

我想要做的很简单:我想从Access调用Excel工作簿.工作簿已经打开(使用VBA),因此这不是关闭工作簿的问题.以下是我尝试运行宏的方法:

Application.Run "'" & xlWb.Path & "\" & xlWb.Name & "'" & "!mainParcourirTrouverItem"

结果是:

'I:\47491\...\Trouver items global.xlsm'!mainParcourirTrouverItem

我尝试了一些变体,比如不使用完整路径(仅文件名),不使用单引号,在子名称的末尾添加括号...

另外,我仔细检查了子名的拼写是否正确.我真的不明白:|

哦,只是为了给出上下文,这里是这个代码的完整子:

Private Sub Commande10_Click()
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook

    Set xlApp = New Excel.Application

    With xlApp
        .Visible = False
        Set xlWb = .Workbooks.Open(FichierImportExcel, ReadOnly:=True)
    End With

    Application.Run "'" & xlWb.Path & "\" & xlWb.Name & "'" & "!mainParcourirTrouverItem"

'    Call importer_transitsrubriques_Click
End Sub

非常感谢.

如果另一列中的值等于某个数字,我会尝试对列中的范围值求和.例如(这是一个非常小的例子):

我想总结C列中同一行中A中数字为"2"的所有值.例如,这个条件的总数应该是236.任何人都可以帮助我吗？我甚至没有得到任何代码.谢谢!