Sorry missed }] from the earlier email
- To: mathgroup at smc.vnet.net
- Subject: [mg126113] Sorry missed }] from the earlier email
- From: Robert Wright <mathematicauser1 at yahoo.com>
- Date: Wed, 18 Apr 2012 03:55:16 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Reply-to: Robert Wright <mathematicauser1 at yahoo.com>
Steve,
I missed two braces from the end of the last expression in my earlier post. Most of you probably figured that out! It should read,
OpenerView[{"Category2",
Dynamic@Style[
TableForm[
Partition[
MapThread[
InputField[
Dynamic[Cases[data, {_, "Category2", _, _}][[#1, #2]]],
String, FieldSize -> #3] &,
Append[Transpose@
Flatten[Table[{i, j}, {i,
Length@Cases[data, {_, "Category2", _, _}]}, {j, 1,
nColumns}], 1],
Flatten@Table[
fieldWidths, {Length@
Cases[data, {_, "Category2", _, _}]}]]], nColumns]],
FontFamily-> "Arial", FontSize -> 10]
}]