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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]加载顺序的下拉框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123002)

--  作者：liumiao123
--  发布时间：2018/8/6 14:38:00
--  [求助]加载顺序的下拉框

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

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

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

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

[此贴子已经被作者于2018/8/6 14:38:23编辑过]

--  作者：liumiao123
--  发布时间：2018/8/6 14:39:00
--
项目在·
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目2.zip

--  作者：liumiao123
--  发布时间：2018/8/6 14:40:00
--
还个问题·不知道·是不是我的版本出问题了·我插入列总是报错··且还现实在最后面··项目也是老关闭不了···都强制后台关闭··

此主题相关图片如下：aaaaa.png

--  作者：有点甜
--  发布时间：2018/8/6 15:54:00
--
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
--  回复：（有点甜）Dim trv As WinForm.TreeView = e.Fo...
请问老师·如果先判断下图号·在加载顺序呢··不然所有图号都被限制了·请问代码如何修改·

--  作者：有点甜
--  发布时间：2018/9/3 14:15:00
--

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

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

--  作者：liumiao123
--  发布时间：2018/9/3 14:35:00
--  回复：（有点甜）以下是引用liumiao123在2018/9/3 14:...
RT--
··
现在代码是加载所有工序相同图号的工序··
我要改成加载对应图号的·不是对应图号的不加载·
此主题相关图片如下：1.png

--  作者：有点甜
--  发布时间：2018/9/3 14:56:00
--
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

--  作者：liumiao123
--  发布时间：2018/9/3 15:31:00
--  回复：（有点甜）Dim trv As WinForm.TreeView = e.Fo...
谢谢~老师~~