以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  语法错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116658)
--  作者：yifan3429
--  发布时间：2018/3/28 22:10:00
--  语法错误
For Each i As Integer = 1 To 3
    Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer" & i)
    pv.AddCommand.Visible = False \'  :增加
    pv.DeleteCommand .Visible = False  \':删除
    pv.ClearCommand.Visible = False  \':清除
    pv.OpenCommand.Visible = False  \':打开
    pv.FullViewCommand.Visible = True  \':全屏
    pv.ManagerCommand.Visible = False  \' :管理
    pv.SaveAsCommand.Visible = True  \' :另存
    pv.StretchCommand.Visible = False  \' :缩放
    pv.UpdateCommand.Visible = True  \':更新
    pv.ConnectCommand.Visible = False  \':重连
Next
--  作者：y2287958
--  发布时间：2018/3/28 22:17:00
--  
For i As Integer = 1 To 3
--  作者：yifan3429
--  发布时间：2018/3/28 23:27:00
--  
谢谢
--  作者：yifan3429
--  发布时间：2018/4/3 23:32:00
--  
.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：窗口,明细查询,TreeView1,NodeMouseClick
详细错误信息：
列“”不属于表 凭证明细。


For i1 As Integer = 1 To 5
    Dim Values() As String = e.Form.Controls("CheckedComboBox" & i1).Text.Split(",")
    Dim strs() As String = e.Node.FullName.Split("\\")
    Dim dr As DataRow = e.Node.DataRow
    Dim flt As String
    For i As Integer = 0 To strs.Length - 1 \'\'间接获取目录树层级(Level)
        For j As Integer = 0 To Values.Length - 1
            If i = j Then \'\'只加入选定节点及以上的节点
                flt + = Values(j) & "= \'" & dr(Values(j)) & "\' And "
            End If
        Next
    Next    
    If flt > "" Then
        Tables(e.Form.Name & "_Table1").Filter = flt.SubString(0,flt.Length - 5)
    End If
Next
--  作者：有点甜
--  发布时间：2018/4/4 8:49:00
--  

If Values(j) > "" Then

    flt + = Values(j) & "= \'" & dr(Values(j)) & "\' And "

End If