个人博客 用于记载日常收集的一些技术文章 ...

Access : Access 刷新窗体 Access : Access 刷新窗体 1.刷新窗体代码:
Me.窗体名称.Requery


2.刷新子窗体代码:
Me.子窗体名称.Requery


3.刷新控件的代码:
Me.控件名.Requery


补充知识:
1.在一个窗体中刷新另一个窗体中的控件代码:
Forms!窗体名.Form.控件名.Requery


2.在一个窗体中刷新另一个窗体中的子窗体代码：
Forms!主窗体.子窗体.Requery 郭少锋 创建 2023-08-02 02:38:24 Access Access : Access 组合框 逐字查询+展开 Access : Access 组合框 逐字查询+展开 Private Sub FCustId_Change()

Me.FCustId.RowSource = "SELECT Cust.FCustId, Cust.FCustNo AS 戶口編號, Cust.FCustName AS 商號, Cust.FCustAddr AS 地址 FROM Cust WHERE ((([FCustNo] & '+++' & [FCustName] & '+++' & [FCustAddr]) Like '*" & Me.FCustId.Text & "*')); "
Me.FCustId.Dropdown
End Sub
郭少锋 创建 2023-08-02 00:35:10 Access windows : VMware17 虚拟机英文设置为中文 windows : VMware17 虚拟机英文设置为中文 方法一：
直接在桌面右击VMware图标，选择“属性”，然后选“快捷方式”，在目标(T)后面框框地址的最后面添加一行“ --locale zh_CN”（前面要有一个空格，不然没用！），然后点应用并确定，操作完成就可以了，
"C:\Program Files (x86)\VMware\VMware Workstation\vmware.exe" --locale zh_CN

方法二:
可能你的VM中文文件被不小心删除了，那就在电脑“开始”按键里的所有应用找到“VMware”，然后选择“卸载”，VMware会弹出一个“修复界面”，选择“修复”，直接重新安装一下就可以了。 郭少锋 创建 2023-07-31 22:27:21 windows K3 BOS : K3 选单/下推 修改数值 K3 BOS : K3 选单/下推 修改数值 '【送货单 210001202】【客户端插件】

' 选单后，调用值更新事件：自动填写 物料.默认仓库 物料.库存单位 销售金额=销售数量x销售单价


Private WithEvents m_BillInterface As BillEvent '定义 BillEvent 接口. 必须具有的声明, 以此来获得事件

Public Sub Show(ByVal oBillInterface As Object) 'BillEvent 接口实现 '注意: 此方法必须存在, 请勿修改

Set m_BillInterface = oBillInterface
End Sub

Private Sub Class_Terminate() '释放接口对象 '注意: 此方法必须存在, 请勿修改

Set m_BillInterface = Nothing
End Sub



Private Sub m_BillInterface_AfterSelBillBeforeFillData(ByVal dcData As KFO.IDictionary, ByVal dctLink As KFO.IDictionary) '选单事件 ★

Dim aSelDat As KFO.Vector: Set aSelDat = dcData("SelDat")

Dim aFClassTypeID As String: aFClassTypeID = aSelDat(1)("FClassTypeID") 'aSelDat(1) 选中的 第1行 数据，里面只有 4个字段
Dim aFEntryId As String: aFEntryId = aSelDat(1)("FEntryID")
Dim aFID As String: aFID = aSelDat(1)("FID")
Dim aFIndex As String: aFIndex = aSelDat(1)("FIndex")

If aFClassTypeID <> "210001401" Then Exit Sub '源单 不是 生产任务单，退出
'------------------------------------------------------------------------------------------------------------------------------------------------

Dim oField As K3ClassEvents.BOSField

For i = 1 To dcData("Page2").UBound '【目标单据体】Page2 行数

'------------------------------------------------------------------------------------------------------------------------------------------------
aFItemId = dcData("page2")(i)(m_BillInterface.TableInfo("Map")("FItemId"))("FFLD") '【字段值】 品名 FItemId

aSql = "select a1.FItemID,a1.FName FItemName,a2.FNumber FStockNo,a2.FName FStockName ,a3.FNumber FUnitNo,a3.FName FUnitName from t_ICItem a1 join t_Item a2 on a1.FDefaultLoc = a2.FItemID join t_Item a3 on a1.FStoreUnitID = a3.FItemID where a1.FItemId = " & aFItemId

Set aRecordset = m_BillInterface.K3Lib.GetData(aSql)

aFStockNo = aRecordset("FStockNo") '【字段值】 仓库名称 FStockId
aFUnitNo = aRecordset("FUnitNo") '【字段值】 库存单位 FUnitStock

'------------------------------------------------------------------------------------------------------------------------
Set oField = m_BillInterface.BillEntrys(1).BOSFields("FStockId") '仓库名称 FStockId
With oField
.Row = i
.Number = aFStockNo '【填写】仓库名称 FStockId
End With

'------------------------------------------------------------------------------------------------------------------------
Set oField = m_BillInterface.BillEntrys(1).BOSFields("FUnitStock") '库存单位 FUnitStock
With oField
.Row = i
.Number = aFUnitNo '【填写】库存单位 FUnitStock
End With

'------------------------------------------------------------------------------------------------------------------------
m_BillInterface.DoAction "FQty", i '【调用值更新】 FQtySale 销售数量

Next

Set aSelDat = Nothing
Set oField = Nothing
Set aRecordset = Nothing

End Sub


' m_BillInterface.DoAction "FBase3", i '调用值更新 【物料代码】FBase3
'
' m_BillInterface.InsertNewRowAndFill 2, i '插入行 2 = Page2
'
' m_BillInterface.SetFieldValue "FText3", aValue, i '【填写数值】 FText2 合同号 FOrderNoCust 郭少锋 编辑 2023-07-30 21:32:22 创建 2023-03-29 22:08:13 K3 BOS windows : Win 11/10 共享打印机连接问题 windows : Win 11/10 共享打印机连接问题 Windows 11/10 共享打印机连接问题

无论是在工作场所还是家庭环境中，将Windows 11电脑连接到共享打印机时，特别是连接到windows11以下操作系统（如win7）的共享打印机时可能会遇到无法连接问题，win11每次连接共享打印机都会出现不同的报错，一会提示0x00000709错误，一会又提示无法连接打印机，或者找不到打印机。由于Windows 11是一个全新的操作系统，所以更新后会带来各种各样的问题。包括共享打印机连接问题。

在解决共享打印机连接问题之前，请确保满足以下几个条件：
确保Windows 11设备和共享打印机的电脑连接到同一个网络。检查网络连接是否稳定。
确保共享打印机所连接的计算机处于开机状态。
检查共享设置，确保共享打印机在Windows 7计算机上正确设置并可供其他设备访问。

--------------------------------------------------------------------------------------------------------------------------
方法二：添加注册表信息

新建记事本文档，输入如下内容：

Windows Registry Editor Version 5.00

［HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Print］

“RpcAuthnLevelPrivacyEnabled”=dword:00000000

［HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows NT\Printers\PointAndPrint］

“RestrictDriverInstallationToAdministrators”=dword:00000000

然后保存，修改文件扩展名为reg，比如1.reg，然后双击这个文件导入注册表即可解决问题。注意电脑需要重启才生效。

总结：这个方法我亲测过，对有些电脑不一定有效，当然，如果刚好对您的电脑有效，请忽略下面的下面的方法。如果对您的电脑没有效果，请接着看下面的方法。

--------------------------------------------------------------------------------------------------------------------------
方法三：文件替换

win11/10无法连接共享打印机的真正原因是电脑C:\Windows\System32目录下的win32spl.dll出了问题，Win32spl.dll是Windows操作系统中的一个重要系统文件，它负责打印相关的功能。该文件在Windows系统中起着关键的作用，它提供了与打印机和打印相关的功能和接口。它允许用户在Windows操作系统中安装、配置和管理打印机设备，并执行打印任务。可能是在电脑升级系统的时候Win32spl.dll损坏了，或者没有升级成功。造成无法连接共享打印机。

在弄清楚了原因后，我们把系统C:\Windows\System32目录下的win32spl.dll文件替换为可用版本的即可。为此我做了个共享打印机错误修复批处理文件，附件下载地址在下面，找到对应的系统，右键以管理员身份运行就可以了。

https://baijiahao.baidu.com/s?id=1768744944072015999&wfr=spider&for=pc 郭少锋 编辑 2023-07-25 18:51:43 创建 2023-07-25 18:45:50 windows K3 BOS : K3 下推控制 K3 BOS : K3 下推控制 Select Case BOSTool.ToolName

Case "mnuPushBill_210001202", "mnuPushBill_210001211", "mnuPushBill_210001502", "mnuBackData"
'下推 1202 送货单 1211 订单变更 1502 受托加工送货单 选单返回

aFDestClassTypeID = m_ListInterface.DataSrv.dctLink("FDestClassTypeID")

If aFDestClassTypeID = 210001101 Then '采购订单 不限制
Exit Sub

ElseIf Not IsOneOrder(aFClassTypeID, aFEntryId) Then '表头不一致，取消下推
Cancel = True
End If

Case Else
End Select
郭少锋 编辑 2023-07-05 12:15:30 创建 2023-07-05 12:15:16 K3 BOS K3 BOS : VB 类模块 创建与调用 K3 BOS : VB 类模块 创建与调用 ' 类模块 Base.Cls


Public Function aSum(ByVal x As Long, ByVal y As Long) As Long

Dim result As Long
result = x + y
aSum = result

End Function


Public Function aJian(ByVal x As Long, ByVal y As Long) As Long

Dim result As Long
result = x - y
aJian = result

End Function

---------------------------------------------------------------
' 调用

Private Sub Command1_Click()

Dim a As New Base

MsgBox a.aSum(2, 3)
MsgBox a.aJian(2, 3)

End Sub 郭少锋 编辑 2023-07-04 14:21:37 创建 2023-07-04 09:49:59 K3 BOS K3 BOS : VB 日期计算 K3 BOS : VB 日期计算 Private WithEvents m_BillInterface As BillEvent

Public Function CheckUseDate(ByVal m_BillInterface As BillEvent) As Boolean

CheckUseDate = False
'------------------------------------------------------------------------------------------------------------
' 【读取】到期日

aSql = "select FValue from t_SystemProfile where FCategory = 'DS' and FKey = 'FEndDate'"

Set aRecordset = m_BillInterface.K3Lib.GetData(aSql)

If aRecordset.RecordCount > 0 Then

Dim aEndDate As Date: aEndDate = Format(CDate(aRecordset("FValue")), "YYYY-MM-DD") ' 到期日

Dim aNow As Date: aNow = Format(CDate(Now()), "YYYY-MM-DD") '当前日期

Dim aDay As Integer: aDay = DateDiff("d", aNow, aEndDate)
If aNow > aEndDate Then

aTxt = vbCrLf & "未检测到K/3许可文件，并且该账套已超过演示版期限。" & vbCrLf & vbCrLf & vbCrLf & "错误代码:5(5H)" & vbCrLf & "Source: LicenseMgrImpl.AcquireLicense"

MsgBox aTxt, vbExclamation, "金蝶提示"

'
'金蝶提示
'
'未检测到K/3许可文件，并且该账套已超过演示版期限。
'
'错误代码:5(5H)
'Source: LicenseMgrImpl.AcquireLicense

CheckUseDate = True

ElseIf aDay < 7 Then

aTxt = vbCrLf & "您的演示版即将到期！" '，还剩 " & aDay & " 天 "

MsgBox aTxt, vbExclamation, "金蝶提示"
End If

End If

Set aRecordset = Nothing

End Function
郭少锋 创建 2023-07-04 14:20:41 K3 BOS 财务 : 针式打印纸 规格 财务 : 针式打印纸 规格 一等份 规格为：24.1 x 28.0 cm，
二等份 规格为：24.1 x 13.96 cm，有效宽度 21.5 cm
三等份 规格为：24.1 x 9.3 cm，
四等份 规格为：24.1 x 7.0 cm

一联为一层(白色)，
二联为两层(白红)，
三联为三层(白红黄)，
四联为四层(白红蓝黄)，
五联为五层(白红蓝绿黄) 郭少锋 编辑 2023-06-29 13:29:52 创建 2023-03-08 14:51:35 财务 windows : Win10更新补丁无法卸载解决方法 windows : Win10更新补丁无法卸载解决方法 Win10更新补丁无法卸载解决方法【教程】
https://product.pconline.com.cn/itbk/software/dnyw/1563/15634168.html

发布时间：2022-11-24 17:53

每个月微软都会推出新的更新补丁来为Win10电脑添砖加瓦，但是不少用户在更新了系统之后发现各种问题，想要卸载补丁来解决问题时，电脑提示无法卸载更新。遇到这种情况我们应该怎么解决问题呢？下面小编就带着大家一起具体看看吧！

Win10更新补丁无法卸载解决办法：

用管理员权限运行CMD， 然后在命令提示符中输入以下命令看是否可以卸载。

wusa /uninstall /KB:xxxxxxx

如果还是无法卸载，建议在安全模式下进行卸载。

如果还是无法卸载，我怀疑可能在更新的时候存在文件损坏，运行“sfc /scannow”命令尝试修复系统文件，重置 Windows 更新组件。

手动重置 Windows 更新组件

打开 Windows 命令提示符。 若要打开命令提示符，请单击 “开始” > “运行”。 复制并粘贴（或键入）以下命令，然后按 Enter：

cmd

停止 BITS 服务、Windows 更新服务 和 加密服务。 为此，请在命令提示符下键入以下命令。 在键入每条命令后按 Enter。

net stop bits

net stop wuauserv

net stop cryptsvc

删除 qmgr*.dat 文件。 为此，请在命令提示符下键入以下命令，然后按 Enter：

Del “%ALLUSERSPROFILE%\Application Data\Microsoft\Network\Downloader\qmgr*.dat”

如果这是使用本文中的步骤解决 Windows 更新问题的首次尝试，请转到步骤 5，而无需执行步骤 4 中的步骤。 如果在执行除步骤 4 以外的所有步骤后仍无法解决 Windows 更新问题，则只能在此时在故障排除中执行步骤 4 中的步骤。 步骤 4 中的步骤也由上述“修复解决方案”的“攻击性”模式执行。

将以下文件夹重命名为 *.BAK：

%Systemroot%\SoftwareDistribution\DataStore

%Systemroot%\SoftwareDistribution\Download

%Systemroot%\System32\catroot2

为此，请在命令提示符处键入以下命令。 在键入每条命令后按 Enter。

Ren %Systemroot%\SoftwareDistribution\DataStore DataStore.bak

Ren %Systemroot%\SoftwareDistribution\Download Download.bak

Ren %Systemroot%\System32\catroot2 catroot2.bak

将 BITS 服务 和 Windows 更新服务 重置为默认安全描述符。 为此，请在命令提示符下键入以下命令。 在键入每条命令后按 Enter。

sc.exe sdset bits D：（A;;CCLCSWRPWPDTLOCRRC;;;SY）（A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA）（A;;CCLCSWLOCRRC;;;AU）（A;;CCLCSWRPWPDTLOCRRC;;;PU）

sc.exe sdset wuauserv D：（A;;CCLCSWRPWPDTLOCRRC;;;SY）（A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA）（A;;CCLCSWLOCRRC;;;AU）（A;;CCLCSWRPWPDTLOCRRC;;;PU）

在命令提示符下键入以下命令，然后按 Enter：

cd /d %windir%\system32

重新注册 BITS 文件和 Windows 更新 文件。 为此，请在命令提示符下键入以下命令。 在键入每条命令后按 Enter。

regsvr32.exe atl.dll

regsvr32.exe urlmon.dll

regsvr32.exe mshtml.dll

regsvr32.exe shdocvw.dll

regsvr32.exe browseui.dll

regsvr32.exe jscript.dll

regsvr32.exe vbscript.dll

regsvr32.exe scrrun.dll

regsvr32.exe msxml.dll

regsvr32.exe msxml3.dll

regsvr32.exe msxml6.dll

regsvr32.exe actxprxy.dll

regsvr32.exe softpub.dll

regsvr32.exe wintrust.dll

regsvr32.exe dssenh.dll

regsvr32.exe rsaenh.dll

regsvr32.exe gpkcsp.dll

regsvr32.exe sccbase.dll

regsvr32.exe slbcsp.dll

regsvr32.exe cryptdlg.dll

regsvr32.exe oleaut32.dll

regsvr32.exe ole32.dll

regsvr32.exe shell32.dll

regsvr32.exe initpki.dll

regsvr32.exe wuapi.dll

regsvr32.exe wuaueng.dll

regsvr32.exe wuaueng1.dll

regsvr32.exe wucltui.dll

regsvr32.exe wups.dll

regsvr32.exe wups2.dll

regsvr32.exe wuweb.dll

regsvr32.exe qmgr.dll

regsvr32.exe qmgrprxy.dll

regsvr32.exe wucltux.dll

regsvr32.exe muweb.dll

regsvr32.exe wuwebv.dll

重置 Winsock。 为此，请在命令提示符下键入以下命令，然后按 Enter：

netsh winsock reset

如果运行的是 Windows XP 或 Windows Server 2003，必须设置代理设置。 为此，请在命令提示符下键入以下命令，然后按 Enter：

proxycfg.exe -d

重启 BITS 服务、Windows 更新服务 和 加密服务。 为此，请在命令提示符下键入以下命令。 在键入每条命令后按 Enter。

net start bits

net start wuauserv

net start cryptsvc

如果正在运行 Windows Vista 或 Windows Server 2008，请清除 BITS 队列。 为此，请在命令提示符下键入以下命令，然后按 Enter：

bitsadmin.exe /reset /allusers

当然我想如果有还原点，系统还原到安装KB之前的状态也可以。 郭少锋 创建 2023-06-26 22:52:10 windows