小编use*_*098的帖子

目前我的代码是这样的:

Dim testSQL As String
Dim qd As DAO.QueryDef

testSQL = "SELECT * FROM qryExample WHERE exampleID IN (" & strExampleIDList & ")"
Set qd = db.CreateQueryDef("tmpExport", testSQL)
DoCmd.TransferText acExportDelim, , "tmpExport", "C:\export.csv"
db.QueryDefs.Delete "tmpExport"

如何更改"C:\ export.csv"部分以便用户能够定义文件路径和文件名？

谢谢.

我有两个列表框,我正在尝试将列表1中的项目添加到列表2,然后可以一次从列表2中删除多个项目.请注意,列表1停滞不前(这应该是这样的).

我有正确的添加项目:

'Add the selected items to List 2
Dim i As Integer

If lst1.ItemsSelected.Count > 0 Then
    i = 0
    While i < lst1.ListCount
        If lst1.Selected(i) Then
            lst2.AddItem (lst1.ItemData(i) & ";" & lst1.Column(1, i) & ";")
            lst1.Selected(i) = False
        End If
        i = i + 1
    Wend
End If

但是,当我尝试以类似的方式从列表2中删除项目时,它只识别所选的第一个项目,并跳过我选择的其他项目.这就是问题.这是我的代码:

'Remove the selected items from List 2
Dim i As Integer

If lst2.ItemsSelected.Count > 0 Then
    i = lst2.ListCount - 1
    While i >= 0
       If lst2.Selected(i) Then
           lst2.RemoveItem …

我试图将字符串的最后一个字符存储在一个变量中,而不事先知道该字符串有多长(该字符串最初是从列表中读取的).我有:

last = record[-1]
lastInd = len(last) - 1
lastChar = last[lastInd]

但是我收到以下错误:

lastChar = last[lastInd]
IndexError: string index out of range

如果我尝试:

lastChar = last[-1]

我犯了同样的错误:

lastChar = last[-1]
IndexError: string index out of range

我真的不明白这里出了什么问题？我没有得到正确的索引吗？