Visual Basic

<code>
'To set bit number 3's value (0-based):
Dim bit3 as Boolean
Dim Value as ... 'This is the value to save columns data for each table
Value = iif ( bit3isTrue , 1, 0 ) And (2 ^ 3)'i.e. 0...0100
'Repeat it for each of 59 columns
'------------------
'To get bit number 3's value
bit3isTrue = Value And ( 2 ^ 3 )

'To Save data you only need to save Value
</code></

Bitarray a = new BitArray(59);
byte[] b = new byte[8];
a.CopyTo(b, 0);

<br />
Dim MyBitArray As BitArray = New BitArray(MyBitLength)<br />
Dim MyBytes(BitsinByte) As Byte<br />
x = 0<br />
Do Until x = MyTable.Rows.Count - 1<br />
        i = 0<br />
	Line1a = ""<br />
	Line1b = ""<br />
	Do Until i = MyBitLength<br />
		MyBitArray.Set(i, True)<br />
		ColumnNames(i) = MyColumns.Rows(i).Item("name")<br />
		i += 1<br />
	Loop<br />
	MyBitArray.CopyTo(MyBytes, 0)<br />
	For j = 0 To MyBytes.Length - 1<br />
		Line1a &= MyBytes(j)<br />
	Next<br />
x += 1  <br />
Loop<br />