金蝶K3 BOS 二次开发怎样获取单头单元格的值，并更新

[明天是明天]

Private Sub m_BillTransfer_BeforHeadLookUp(ByVal CtlIndex As Long, ByVal nLookUpClsID As Long, Cancel As Boolean)
 
    'TODO: 请在此处添加代码响应事件 BeforHeadLookUp
'Dim SXRJ As String
'Dim SXRJ1 As String

On Err GoTo arr

 SXRJ = GetCtlIndexByFld("FEffectiveDate", False)  '生效日期字段名,把FconsignPrice，改成数据库对应字段
 SXRJ1 = GetCtlIndexByFld("F1688QuoID", False)  '失效日期字段名，把FconsignPrice，改成数据库对应字段
'For i = LBound(m_BillTransfer.HeadCtl) To UBound(m_BillTransfer.HeadCtl)
'                     If m_BillTransfer.HeadCtl(i).Caption = "失效日期:" Then
'
'                         fb = i
'                    End If
'                     If m_BillTransfer.HeadCtl(i).Caption = "*副总" Then
'
'                         ff = i
''                   End If
'                    If m_BillTransfer.HeadCtl(i).Caption = "*业务负责人主管" Then
'
'                        fy = i
'                    End If
'                Next

 If Col = SXRJ And m_BillTransfer.GetHeadText(Row, SXRJ) <> '' Then   '不为0，SXRJ
'这句提示语句错误
 
 'MsgBox (1 - (Round(m_BillTransfer.GetGridText(Row, SJDJ) / m_BillTransfer.GetGridText(Row, HSDJ), 2)))
 m_BillTransfer.SetHeadText Row, SXRJ1, Format(Now + 30, "yyyy-mm-dd")
 End If
arr:
End Sub
Public Function GetCtlIndexByFld(ByVal fldName As String, Optional ByVal isEntry As Boolean) As Long
Dim ctlIdx As Long
Dim i As Integer
Dim isFind As Boolean
Dim vValue As Variant
fldName = UCase(fldName)
isFind = False
With m_BillTransfer
If isEntry = False Then
    For i = LBound(.EntryCtl) To UBound(.EntryCtl)
    If UCase(.EntryCtl(i).FieldName) = fldName Then
    ctlIdx = .EntryCtl(i).FCtlOrder
    isFind = True
    Exit For
    End If
    Next i
Else
    For i = LBound(.HeadCtl) To UBound(.HeadCtl)
    If UCase(.HeadCtl(i).FieldName) = fldName Then
    ctlIdx = .HeadCtl(i).FCtlIndex
    isFind = True
    Exit For
    End If
    Next i
End If
End With
If isFind = True Then
GetCtlIndexByFld = ctlIdx
Else
GetCtlIndexByFld = 0
End If
End Function

新人新学VB：
现在的目的是 生效日期字段+30天=失效字段
为了减少开发语句，生效日期取值为当然日期，
但是If Col = SXRJ And m_BillTransfer.GetHeadText(Row, SXRJ) <> '' Then 报语法错误，求救！谢谢了

[赵4老师]

百度搜相关关键字。

[舉杯邀明月]

空字符串，是两个双引号，不是两个单引号。

[舉杯邀明月]

引用 3 楼 zhao4zhong1 的回复:

[quote=引用 2 楼 Chen8013 的回复:] 空字符串，是两个双引号，不是两个单引号。

眼睛比我亮！ 看来我最近老眼昏花了。[/quote] 我要回复别人的问题，基本上都是要仔细看贴子的， 不象你，大致晃一眼、甚至看都没看，就 Ctrl+C、再Ctrl+V，回贴了。

[赵4老师]

引用 4 楼 Chen8013 的回复:

[quote=引用 3 楼 zhao4zhong1 的回复:] [quote=引用 2 楼 Chen8013 的回复:] 空字符串，是两个双引号，不是两个单引号。

眼睛比我亮！ 看来我最近老眼昏花了。[/quote] 我要回复别人的问题，基本上都是要仔细看贴子的， 不象你，大致晃一眼、甚至看都没看，就 Ctrl+C、再Ctrl+V，回贴了。 [/quote] 知zhao4zhong1者,Chen8013也！

[赵4老师]

引用 2 楼 Chen8013 的回复:

空字符串，是两个双引号，不是两个单引号。

眼睛比我亮！ 看来我最近老眼昏花了。