[求助]加载顺序的下拉框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim str = e.Form.DropTable.Current("工序顺序")
If str = "" Then
    trv.BuildTree("工序路线","图号|工序")
Else
    If str.Indexof("-") >= 0 Then
        Dim i1 As String = val(str.split("-")(0))
        Dim i2 As String = val(str.split("-")(1))
        trv.BuildTree("工序路线","图号|工序", "工序顺序>='" & i1 & "' and 工序顺序<='" & i2 & "'")
    Else
        trv.BuildTree("工序路线","图号|工序", "工序顺序='" & str & "'")

    End If
End If

以下是引用liumiao123在2018/9/3 14:10:00的发言：
请问老师·如果先判断下图号·在加载顺序呢··不然所有图号都被限制了·请问代码如何修改·

用4楼的代码有什么问题？请截图说明。你要改成什么样子的？

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim str = e.Form.DropTable.Current("工序顺序")
Dim th = e.Form.DropTable.Current("图号")
If str = "" AndAlso th = "" Then
    trv.BuildTree("工序路线","图号|工序")
ElseIf th = "" Then
    If str.Indexof("-") >= 0 Then
        Dim i1 As String = val(str.split("-")(0))
        Dim i2 As String = val(str.split("-")(1))
        trv.BuildTree("工序路线","图号|工序", "工序顺序>='" & i1 & "' and 工序顺序<='" & i2 & "'")
    Else
        trv.BuildTree("工序路线","图号|工序", "工序顺序='" & str & "'")

    End If
ElseIf str = "" Then
    trv.BuildTree("工序路线","图号|工序", " 图号='" & th & "'")
Else
    If str.Indexof("-") >= 0 Then
        Dim i1 As String = val(str.split("-")(0))
        Dim i2 As String = val(str.split("-")(1))
        trv.BuildTree("工序路线","图号|工序", "工序顺序>='" & i1 & "' and 工序顺序<='" & i2 & "' and 图号='" & th & "'")
    Else
        trv.BuildTree("工序路线","图号|工序", "工序顺序='" & str & "' and 图号='" & th & "'")

    End If
End If

主题：[求助]加载顺序的下拉框