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

此主题相关图片如下：qq截图20180806142614.png


此主题相关图片如下：qq截图20180806142653.png

·我想实现~输入工序顺序然后加载相应的工序下拉框~请老师帮忙看下·代码哪里出错了··现实超出范围了。

项目在·

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.zip

还个问题·不知道·是不是我的版本出问题了·我插入列总是报错··且还现实在最后面··项目也是老关闭不了···都强制后台关闭··

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

请问老师·如果先判断下图号·在加载顺序呢··不然所有图号都被限制了·请问代码如何修改·

 

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

RT--

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

谢谢~老师~~