Access table cells

Question

Hello,
Could someone please help me understand how to access table cells (in report)?  I have a report with a table populated from a channel.  It shows, in one column, a list of names (which come from a channel).  I have another channel with a list of colors and I want to associate each name in the table with a color from this second channel. I have tried without success to even access a cell using D2TabRow and D2TabCol and display the contents....
Any help is appreciated
Thanks 
Solved!
Go to Solution.

Answer 1

Hi Edna-S,
Thanks again for the help, but I am stuck at a very basic level.   if I can get past that, the rest will work for me.  Rather than using channels, I would like to reference elements in a table using the table row and column.
I found the script below in a previous post.  Using it, I can create a two column table in Report.  I added a little bit to the script and I can also change the font colour for the headers or a column.
But, I cannot figure out how to reference just one cell.  If for example, I wanted to change the font colour for the third cell in the second column only, what commands should I use?  In other words is there some equivalent of A= chT (row, channel) for use with tables where I could give the cell reference (row,col) and have the entry stored (A) in that cell returned?
Many Thanks!
Dim Length, Ch1, Ch2, GroupIdx
Length = 8
GroupIdx = GetCreateGroup("New Group")
Ch1 = GetCreateChannel(GroupIdx, "New Channel 1", Length)
Ch2 = GetCreateChannel(GroupIdx, "New Channel 2", Length)
For i = 1 to Length
   ChDX(i, Ch1) = i
   ChDX(i, Ch2) = i+5
Next
Call PicLoad("C:\DiademExercises\Table_test2.TDR")
Call GraphSheetShow("Property_table")
Call GRAPHObjOpen("2DTable1")
  D2TABDATATYPE(1) = "Channel"
  D2TABCHNNAME(1)  = "[" & GroupIdx & "]/" & ChnName(Ch1)
  D2TABDATATYPE(2) = "Channel"
  D2TABCHNNAME(2)  = "[" & GroupIdx & "]/" & ChnName(Ch2)
Call GRAPHObjClose("2DTable1")
Call PicUpdate
'******* GetCreateGroup() ***                                     *** NEW Function ***
Function GetCreateGroup(GroupNameStr)
  Dim ResultsGroupIdx
  ResultsGroupIdx = GroupIndexGet(GroupNameStr)
  IF ResultsGroupIdx = 0 THEN
    Call GroupCreate(GroupNameStr)
    ResultsGroupIdx = GroupCount
  END IF
  Call GroupDefaultSet(ResultsGroupIdx)
GetCreateGroup = ResultsGroupIdx
End Function ' GetCreateGroup()
'******* GetCreateChannel() ***                                   *** NEW Function ***
Function GetCreateChannel(GroupIdx, ChanName, ChanLength)
  Dim ResultChanNum, ChanIdx
  ResultChanNum = CNo("[" & GroupIdx & "]/" & ChanName)
  IF ResultChanNum = 0 THEN
    ChanIdx = GroupChnCount(GroupIdx) + 1
    Call ChnAlloc(ChanName, ChanLength, 1, DataTypeFloat64, "Numeric", GroupIdx, ChanIdx)
    ResultChanNum = CNoXGet(GroupIdx, ChanIdx)
  END IF
  ChnLength(ResultChanNum) = ChanLength
GetCreateChannel = ResultChanNum
End Function ' GetCreateChannel()
Call GRAPHObjOpen("2DTable1")
D2TabNumColor(2) = "red"  'Changes font in column2 to red
 D2TabTxtColor = "blue" 'Puts the header text blue in colour
Call GRAPHObjClose("2DTable1")
Call PicUpdate