主题：选择后就刷新

 看7楼，我测试可以。

应该是我没说清楚，可不可以在类型列输入的时候，窗口的字符就立刻变为程序写的字符！

 实在是不得行就算了吧 谢谢你们！

 

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

 

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

复制了啊！！！！！

 不能直接拷贝粘贴,拷贝粘贴的情况要写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

谢了！我看我可能要从英语学起走！太复杂了!

 

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

好！谢谢你的帮助！