标题：帮忙看看代码那里不对

1楼

bm 发表于：2012/2/5 13:08:00

ElseIf e.DataTableName = "支出明细" Then
    Dim ids As String
    For Each dr As DataRow In DataTables("业务大表").DataRows
        ids = ids & "," & dr("关单号")
    Next
    ids= ids.Trim(",")
    e.SelectString = "Select * From {支出明细} Where [关单号] In (" & ids & ") Or [支出账户] Is Null"
End If

此主题相关图片如下：2012-02-05_13-08-13.jpg

2楼

410109296 发表于：2012/2/5 13:11:00

是外部数据库的位置变了

3楼

bm 发表于：2012/2/5 13:26:00

我不知道怎么写代码。

4楼

czy 发表于：2012/2/5 13:41:00

关单号是数值型吗？

5楼

bm 发表于：2012/2/5 14:00:00

是字符

6楼

czy 发表于：2012/2/5 14:15:00

字符型的这样改一下看看

Dim ids As String
For Each dr As DataRow In DataTables("业务大表").DataRows
If dr.IsNull("关单号") = False Then
ids = ids & ",'" & dr("关单号") & "'"
End If
Next
ids= ids.Trim(",")

7楼

bm 发表于：2012/2/5 14:50:00

8楼

blackzhu 发表于：2012/2/6 7:50:00

e.SelectString = "Select * From {支出明细} Where [关单号] In (" & ids & ") Or [支出账户] Is Null"

呵呵,e.SelectString 好像只能用于项目事件吧.

共8 条记录, 每页显示 10 条, 页签: [1]