当前位置:首页 > 技术心得 > 正文内容

K3老单插件控制字段显示

xjtudll3年前 (2021-09-25)技术心得600
https://www.cnblogs.com/youzhangcai1/p/10685778.html
204679-20190410200824978-2071314483

【问题描述:】

我想在工业单据的插件中锁定单据头字段,但实现不了?

【解决方法:】

For i = 0 To m_BillTransfer.Head.count - 1
    If m_BillTransfer.Head(i).Caption = "客户地点:" Then

        '客户地点显示、不可编辑(Visible改为False为不显示)

        m_BillTransfer.Head(i).Visible = True
        m_BillTransfer.Head(i).Enabled = False

        m_BillTransfer.Head(i).Caption= "XXXX"

        Exit For
    End If

Next i

【问题描述:】

我想在录产品入库单时做一插件,只要有一个地方改变就自动隐藏单据体中的“备注”列,试来试去不行,还请高人指点,先谢了!

【解决方法:】

你可以将其锁定,而不必隐藏:

Private Sub m_BillTransfer_HeadChange(ByVal CtlIndex As Long, ByVal Value As Variant, ByVal bNewBill As Boolean, Cancel As Boolean)
Dim vsEntrys As Object
Dim i As Long
Set vsEntrys = m_BillTransfer.Grid
For i = 1 To UBound(m_BillTransfer.EntryCtl)

    If UCase(m_BillTransfer.EntryCtl(i).FieldName) = "FNOTE" Then
       Exit For
   End If
Next i

'锁定单据体备注字段

With vsEntrys
   .col = i
   .Col2 = i
   .row = -1
   .BlockMode = True
   .Lock = True
   .BlockMode = False
End With
End Sub
你也可以将此列锁定后列宽设置为0,变通实现隐藏:
With vsEntrys
   .col = i
   .Col2 = i
   .row = -1
   .BlockMode = True
   .Lock = True
   .BlockMode = False
   .ColWidth(i) = 0
End With

扫描二维码推送至手机访问。

版权声明:本文由鸟的天空发布,如需转载请注明出处。

本文链接:http://www.xjtudll.cn/Exp/617/

标签: 金蝶
分享给朋友:

“K3老单插件控制字段显示” 的相关文章

Xcode Warning: Multiple build commands for output file /xxx 解决

Xcode Warning: Multiple build commands for output file /xxx 解决

 现象: 编译后有如下警告: [WARN]Warning: Multiple build commands for output file /xxx 解决步骤如下: 1、选择你的工程 2、选择target 3、点击 Build Phases 4、展开...

QQ域名邮箱MX设置

前段时间,QQ有了个域名邮箱,于是我立马开通了,设置过程很简单,首先在QQ邮箱界面激活域名邮箱功能,然后进入设置界面验证域名。通过验证后,进入域名控制面板设置MX。腾讯提示2-24小时就可以生效了,但我一直等到超过24小时还是未生效。于是只好搜索网络。腾讯帮助里面是这话说的:为什么我的MX记录设置验...

双击打开exe程序和Process.Start区别

问题:使用Process.Start打开.exe程序的时候发现在使用时无法加载启动路径的配置文件。启动代码:Process process = new Process();          &nbs...

android 停止Handler

mHandler.removeCallbacks(mRunnable); 或者 mHandler.removeMessages(what); mHandler.removeCallbacksAndMessages(null) 参数为null的话,会将所有的Callbacks和Messages全部清除...

AutoCAD转Protel99SE及丢线问题解决

AutoCAD转Protel99SE及丢线问题解决

工作中经常需要将AutoCAD里面的图形导入到Protel99SE,导入的过程中碰到的最大的问题就是:导入后的图形丢失了曲线(圆弧)。搜遍Google和百度,没有找到一个完善的解决办法,要么语焉不详,要么答非所问。不过网络上终究有些蛛丝马迹,给我提供了一些思路,后几经尝试,终于解决了这个问题。下面与...

android warning : Cursor finalized without prior close()

参考资料: http://stackoverflow.com/questions/22355246/cursor-finalized-without-prior-close-warning-what-does-it-mean 问题: LogCat提示:Cursor finalized with...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。