用友集成工具:密码修改、帐套主管设置、用户删除、异常任务清除、单据锁定清除

jwfc

这个在852好用吗？

dafs

这么好的综合工具　向楼主致敬

dafs

扣了我的钱怎么不能下呀

esmfh

终于找到了

esmfh

就是没法下载，没钱呢

navaca

谁下载用过，回来反馈下啊。不知道8.7能不能用呢

用心就好

这个能修改，数据库密码吗？

dekie

这个工具功能挺多，用起来不知怎么样？

hehuan

晕死了太黑了你！不好使我饶不了你

LS115115

Sub jxb8088()  '附件 1
arr = Range("a2:d" & [a65536].End(3).Row)
For i = 1 To UBound(arr)
m = InStr(arr(i, 1), "_")
Do While Mid(arr(i, 1), m, 1) = "_"
m = m + 1
Loop
arr(i, 4) = Mid(arr(i, 1), InStr(arr(i, 1), "_"), m - InStr(arr(i, 1), "_"))
Next
For i = 1 To UBound(arr)
If arr(i, 2) <> "" Then
For j = 1 To UBound(arr)
If InStr(arr(j, 1), arr(i, 2)) > 0 Then
For k = j - 1 To 1 Step -1
If arr(k, 4) & "_" = arr(j, 4) Then
arr(i, 3) = Left(arr(k, 1), InStr(arr(k, 1), arr(k, 4)) + Len(arr(k, 4)) - 1)
Exit For
End If
Next
Exit For
End If
Next
End If
Next
[a2].Resize(UBound(arr), 3) = arr
End Sub

jialei123

怎么都要钱啊！~~~~~~~

jialei123

太假了吧！~~~能不能用啊

allanchang

好东西。谢谢

lh_4444

谢谢，先学习一下

3334964

删除用户功能很强打，但没有一次全删除的功能，只能一个一个的删，这个功能有待改善。