人员信息管理

feng-aaaa

一指禅62 发表于 2021-1-21 10:40
可重新下载。

双击搜索框里的第一行标题出错，老师再加个判断吧

一指禅62

feng-aaaa 发表于 2021-1-21 12:48
双击搜索框里的第一行标题出错，老师再加个判断吧

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.ListIndex > 1 Then Call cmd确定_Click
End Sub

feng-aaaa

一指禅62 发表于 2021-1-21 13:34
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.ListIndex >  ...

感谢感谢，学到了不少，>0才刚刚好，老师能否再叫我一下，如果我在增加一个搜索框该如何调整呀，我目前的只会简单修改套用，

feng-aaaa

我试了好多次都不成功，视乎就卡在这里了，
        If InStr(arr(i, 2), TextBox1.Text) > 0 _
            And InStr(arr(i, 3), ComboBox1.Text) > 0 Then

我新添加一个ComboBox2搜索框都能正常使用，正常下拉选择，不仅搜索不到内容还影响第一搜索框使用，我用And和or都不行，用两个> 0 _也不行，懂的人肯定会笑我愚蠢，主要是我不会vba语言想做个自己顺手的表格，都是一点一点试着修改出来的，老师别见笑

feng-aaaa

feng-aaaa 发表于 2021-1-21 19:36
我试了好多次都不成功，视乎就卡在这里了，
        If InStr(arr(i, 2), TextBox1.Text) > 0 _
         ...

通过摸索终于搞定了，            And InStr(arr(i, 3), ComboBox1.Text) And InStr(arr(i, 5), ComboBox2.Text) > 0 Then，虽是外行和高手还是学到很多东西，感谢，感谢

l_hl2008

收藏备用，O(∩_∩)O谢谢！

svina

做个记号，有空学习一下。

nxxhswl

在这个地方报故障是因为啥呢。

一指禅62

nxxhswl 发表于 2024-4-28 19:53
在这个地方报故障是因为啥呢。

我下载附件测试没有出现这个错误提示。不知您这是在什么情况下出现的。

prome3

一指禅62 发表于 2024-5-6 20:12
我下载附件测试没有出现这个错误提示。不知您这是在什么情况下出现的。

我测试也没有弹出这个错误提示，一切正常。

另外，这日历的界面做得不错


我还以为这个论坛上的好看的日历界面设计我已大都看过，没想到还有遗漏。

您这款日历是真不错（界面上）。