I posted a question earlier this week regarding the TableCell property. Since there have been no replies, I'm guessing that either I didn't explain myself thoroughly or nobody knows the answer. Or, I'm in the wrong forum. This is a form that has a button that can be clicked when the user needs to enter a new row of cells.

Maybe it would help if I posted part of the code. If anyone can tell me if the size of the cells can be adjusted, I would appreciate it. No matter what I try, they are at a fixed width.


if iID <> "" then ' user is viewing data for existing record
Set oMultiPartSet = oFormDataRow.ColumnValues(iFieldID).Value

with oMultiPartSet
'response.write "count=" & oMultiPartSet.Count
for j = 1 to oMultiPartSet.Count
set oRec = oMultiPartSet(j)
for k = 1 to oRec.Count
ItemValue = oRec(k).Value
tablecell = "<td><input type=""text""" & " name=""rec"
tablecell = tablecell & CSTR(J) & "I" & CSTR(K)
tablecell = tablecell & """ value="""
tablecell = tablecell & ItemValue
tablecell = tablecell & """></td>"
'Response.write "<td><input type=""text"" name=""REC""" & CSTR(J) & "I" & CSTR(K) & "value="" & oRec(k).Value & "" ></td>"
response.write tablecell
'response.write "*" & j
if j <> oMultiPartSet.Count then
%><td align="center"><input type="checkbox" name="delete_<% = cstr(j) %>"></td></tr><%
end if
dim lastrecordnumber
lastrecordnumber = j
end with
<td><input type="text" name="rec1i1" value="" ></td>
<td><input type="text" name="rec1i2" value="" ></td>
<td><input type="text" name="rec1i3" value="" ></td>
<td><input type="text" name="rec1i4" value="" ></td>
<td><input type="text" name="rec1i5" value="" ></td>
<td><input type="text" name="rec1i6" value="" ></td>
lastrecordnumber = 1
end if
'response.write "irows=" & iRows & "<br>"
'response.write "last=" & lastrecordnumber & "<br>"
<td align="center"><input type="hidden" name="rowcount" value=""><input type="hidden" name="addrow" value=""><input type="button" value="Add Row" onClick="document.AuditTrack.rowcount.value = '<% = lastrecordnumber %>';document.AuditTrack.addrow.value = 'YES';CheckForm();"></td>