主题：选择后就刷新

 

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

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

 看7楼，我测试可以。

 

本来就是这样，你有复制代码进去吗？只要选择了值，或者改变了值，就会马上改变的。

 不能直接拷贝粘贴,拷贝粘贴的情况要写Datacolchanged事件的。

 

 ChangedEdit事件对应的，是选择和在单元格里面双击后输入值。

 DatacolChanged的情况，代码如下

 

If e.DataCol.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.DataRow.IsNull("速卖通档案_类别") = False
            Dim i As Integer = array.IndexOf(ary,e.NewValue)
            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

 最后总结，写两个事件。

 

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", "牛仔裤"}
       
        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
       
        If flag Then
            c0.Text = Nothing
            c1.Text = Nothing
            c2.Text = Nothing
            c3.Text = Nothing
        End If
    End If
End If

 

---------------------------------------------------

 

If e.DataCol.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.DataRow.IsNull("速卖通档案_类别") = False
            Dim i As Integer = array.IndexOf(ary,e.NewValue)
            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

 

无关于英文，把帮助文档看一遍再说。