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

K3老单插件控制字段显示

xjtudll4年前 (2021-09-25)技术心得1920
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://xjtudll.cn/Exp/617/

标签: 金蝶
分享给朋友:

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

下载标准的好地方

最近几天,一直在寻找关于液晶石英表相关的标准,网上搜来搜去,终于在51zbz上找到了,只有这个地方可以免费下载,其他的不是要注册,就是要花钱买。 所以,向大家推荐这个网站:我要找标准(http://www.51zbz.com/)。 虽说能免费下载,但是此网站有几个缺点: 1、找不到站内搜...

CrystalDecisions.Windows.Forms.CrystalReportViewer.DisplayGroupTree”已过时

问题:早期工程升级到VS2010 提示: CrystalDecisions.Windows.Forms.CrystalReportViewer.DisplayGroupTree”已过时 解决办法: this.crystalReportViewer1.DisplayGroupTree =...

K3 wise 老单增加自定义项为下推或上拉【选单条件】

-- 老单增加自定义项选单条件,就是在下推时显示【没有符合条件的记录】,或在下游单据选单时在序时薄界面默认过滤条件单自据,这里以销售订单下推生成发货通知为例-- 步骤如下:-- 1、要用到的数据表有 -- ICTransactionType 该表反映了供需链所有单据的总体情况-- ICCl...

android Service : onStartCommand intent为null

参考资料: http://hold-on.iteye.com/blog/2024926 问题: service中加入onStartCommand之后,不定期crash。 分析: 经查看onStartCommand中代码,只有intent为空才可能报NullPointException 。 inten...

黑群晖:certificate has expired or is not yet valid

https://blog.csdn.net/weixin_54655073/article/details/138663733 sudo -imv /etc/ssl/certs/ca-certificates.crt /etc/ssl/certs/ca-certificates.crt.baksud...

C#里面如何判断一个Object是否是某种类型

第一种方法 var isA = oldObject.GetType() == typeof(Dictionary<string, string>) 第二种方法 var isB = oldObject.GetType().FullName.IndexOf("Dictionary&...

发表评论

访客

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