Link field in a grid.

Question

Hi,
I created a user table and one of the fields is to hold a path.  I created this field as a link type field expecting that, when I double click it, I will see the browse control that will facilitate selecting a file.   However, when I use a grid I can see the hand but double-clicking it doesnu2019t cause the browse control to appear.  Is it that the link doesnu2019t function in a grid?  Do I need to use a matrix instead of a grid?
Thanks,
Mike

Answer 1

Hi,
I created the matrix and did the data binding but now the link field doesn't work at all.  The hand doesn't appear for the field and double-clicks are ignored.  Is there something else I need to do?  should the tdalr represent if a UDO>?
Code:
oForm.DataSources.DBDataSources.Add("@NBS_TABLE")
mxColumn.DataBind.SetBound(True, "@NBS_TABLE", "U_Field")
The function that sets up the field - it is good - it is a common function we all use here and it works in system table matrices.
    Public Shared Function CreateLinkTypeField(ByVal TableName As String, _
                                            ByVal FieldName As String, ByVal Description As String, _
                                            Optional ByVal CharCount As Integer = 254, _
                                            Optional ByVal Required As Boolean = False) As Boolean
        Log("Create field " & FieldName & " in table " & TableName & ".")
        If FieldExists(TableName, FieldName) Then
            Log("Field already exists.")
            Return True
        End If
        Dim oUserTablesMD As SAPbobsCOM.UserTablesMD
        Dim oUserFieldsMD As SAPbobsCOM.UserFieldsMD
        Dim oUserObjectMD As SAPbobsCOM.UserObjectsMD
        Dim oItemGroupMD As SAPbobsCOM.ItemGroups
        Dim lRetCode As Long
        Dim lErrCode As Long = 0
        Dim sErrMsg As String = ""
        oUserFieldsMD = oUtilCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)
        With oUserFieldsMD
            .TableName = TableName
            .Name = FieldName
            .Description = Description
            .Type = SAPbobsCOM.BoFieldTypes.db_Memo
            .SubType = SAPbobsCOM.BoFldSubTypes.st_Link
            .EditSize = CharCount
            If Required Then .Mandatory = SAPbobsCOM.BoYesNoEnum.tYES
            lRetCode = .Add
        End With
        If lRetCode <> 0 Then
            oUtilCompany.GetLastError(lErrCode, sErrMsg)
            If lErrCode = -2035 Then
                '// Column already exists to just don't do anything
            ElseIf lErrCode = -2004 Then
                oUtilApplication.MessageBox(TableName & ": " & sErrMsg)
                Return False
            Else
                oUtilApplication.MessageBox(FieldName & ": " & sErrMsg)
                Return False
            End If
        End If
        KillObject(oUserFieldsMD)
        Return True
    End Function
Any ideas?
Thanks,
Mike
Edited by: Mike Angelastro on Nov 17, 2009 11:01 PM