小编spo*_*dem的帖子

我在电子表格上有一个按钮,当按下该按钮时,应该允许用户打开文件,然后复制电子表格"数据"的列AG,然后将这些列中的数据粘贴到当前工作表上.

我在代码中有一个逻辑错误; 它运行,但它将选择粘贴在错误的地方.

我无法引用这两个工作簿.

这是我的代码:

Sub Button1_Click()
    Dim excel As excel.Application
    Dim wb As excel.Workbook
    Dim sht As excel.Worksheet
    Dim f As Object

    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    f.Show

    Set excel = CreateObject("excel.Application")
    Set wb = excel.Workbooks.Open(f.SelectedItems(1))
    Set sht = wb.Worksheets("Data")

    sht.Activate
    sht.Columns("A:G").Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste

    wb.Close
End Sub

我有一个JSpinner显示从0.0到999.0的十进制值.它似乎工作正常,除了它在编辑器框中显示一个长度为四位数的数字,例如123.4; 然后它会切断部分最后一位数,因为它不够长.

所以我的问题是:有谁知道如何增加JSpinner编辑器窗口的长度？

谢谢!

我有一个简单的MS Access表单,有3个对象:文本框,列表框和按钮.表单的预期用途如下:用户在文本框中输入名称,从列表框中选择一个项目,然后单击按钮将数据添加到表格中.

但是,当我单击按钮时,我不断收到错误消息,"除非控件具有焦点,否则无法引用属性或控件的方法."

以下是我的代码.谢谢!

Private Sub addRecord_button_Click()
    Dim CustomerName As String
    Dim CustomerType As String

    On Error GoTo Errhandler

    CustomerName = "[name not selected]"
    CustomerType = "[type not selected]"

    CustomerName = Customer_TextBox.Text

    Select Case Type_ListBox.ListIndex
        Case 0
            CustomerType = "Type 1"
        Case 1
            CustomerType = "Type 2"
        Case 2
            CustomerType = "Type 3"
    End Select

    'MsgBox ("Name: " & CustomerName & " and Type: " & CustomerType)

    DoCmd.RunSQL "INSERT INTO Customer VALUES (CustomerName, CustomerType);"

Errhandler:
    MsgBox ("The following error has …

这是我的SQL语句:

SELECT [Item], SUM([Quantity]) AS SumOfQuantity, SUM([Price Each]) AS SumOfTotal,
([SumOfTotal] / [SumOfQuantity]) As Average,
CASE 
WHEN [Average] <= 6 THEN SumOfTotal
ELSE 6*[SumOfQuantity] END AS GrossComm
FROM Data
GROUP BY [Item];

当我尝试执行此查询时,收到错误消息:

查询表达式中的语法错误(缺少运算符)'CASE WHEN [Average] <= 6 THEN SumOfTotal ELSE 6*[SumOfQuantity] END AS GrossComm

有任何想法吗？

谢谢!