主题：选择后就刷新

怎么让选择后就立刻显示出来啊！

 

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

点击浏览该文件:desktop.rar

 

http://www.foxtable.com/help/topics/0619.htm 

 

好 我马上认真看？

还是没用呢！是不是除了要该列名次还要改代码

 

修改了功能肯定要改代码，你先看懂之前的代码吧，你的需求一直改，别人永远要给你搽屁股么

我就还有两个问题了!

一个就是这个问题 ！

还有个就是你帮我的窗口显示的，你帮我改了 但是我没用知道你改的什么地方！唉 确实太深了

 第一个问题，changeEdit 事件

 

If e.Col.Name = "速卖通档案_类别" Then
    If Forms("产品尺寸制作").Opened Then
        Dim c0 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("p_CheckBox01")
        Dim c1 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("p_CheckBox02")
        Dim c2 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("p_CheckBox03")
        Dim c3 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("p_CheckBox04")
        Dim s As String = "肩宽/袖长/衣长/袖围,腰围/裤长/裤围/臀围,腰围/腰高/脚围/裤长,腰围/腰高/脚围/裤长"
        Dim flag As Boolean = True
        Dim ary() As String = {"T恤-男/T-shirt - male","衬衫","短裤-男/Shorts - male", "牛仔裤"}
        If e.Table.Current.IsNull("速卖通档案_类别") = False
            Dim i As Integer = array.IndexOf(ary,e.Text)
            If i >= 0
                c0.Text = s.Split(",")(i).Split("/")(0)
                c1.Text = s.Split(",")(i).Split("/")(1)
                c2.Text = s.Split(",")(i).Split("/")(2)
                c3.Text = s.Split(",")(i).Split("/")(3)
                flag = False
            End If
        End If
        If flag Then
            c0.Text = Nothing
            c1.Text = Nothing
            c2.Text = Nothing
            c3.Text = Nothing
        End If
    End If
End If

 第二个问题，不知就算了，改的地方比较多我也忘记了。自己改一下来用，不然就在原本那个基础上改。

甜妹妹！没反映呢！

甜妹妹 其实我就像选择后窗口的文字就显示出来，不用要选择其他行后再选择这行才显示出来！