Dim dtb As New DataTableBuilder("temp")生成了临时表，我在一个窗口的table1的数据源使用代码tb.DataSource = DataTables("temp")。现怎样代码设置选中行背景色
如果还想符合“选中=true”的行设成另一个背景色用什么代码，在“
系统样式”中好像没合适可选
Dim tb As Table = Tables("导入凭证库财政记录_table1")
tb.StopRedraw()
Dim Book As New XLS.Book(e.Form.Controls("TextBox2").text)
Dim Sheet As XLS.Sheet = Book.Sheets(e.Sender.text)
For m1 As Integer = 1 To tb.DataTable.DataCols.Count
If tb.DataTable.DataCols.Contains("第" & m1 & "列") = True Then
tb.DataTable.DataCols.Delete ("第" & m1 & "列")
End If
Next
Dim dtb As New DataTableBuilder("temp")
dtb.AddDef("已导入", GetType(Boolean))
For m1 As Integer = 1 To Sheet.cols.Count
dtb.AddDef("第" & m1 & "列", GetType(String), 255)
Next
dtb.Build()
tb.DataSource = DataTables("temp")
For n As Integer = 0 To Sheet.Rows.Count - 1
Dim r As Row = tb.AddNew()
For m As Integer = 0 To Sheet.cols.Count - 1
r(tb.Cols(m + 1).name) = Sheet(n, m).Value
Next
Next
If tb.rows.Count > 0 Then
tb.Select(0, 0)
End If
tb.ResumeRedraw()
tb.Cols("已导入").Width = 45
tb.SetHeaderRowHeight(35, 25)
tb.DefaultRowHeight = 35
Dim st As String
For i As Integer = tb.Cols.Count - 1 To 1 Step - 1
st = "|第" & i & "列" & st
Next
e.Form.Controls("ComboBox3").ComboList = st.Remove(0, 1)
e.Form.Controls("ComboBox4").ComboList = st.Remove(0, 1)
e.Form.Controls("ComboBox5").ComboList = st.Remove(0, 1)
e.Form.Controls("ComboBox6").ComboList = st.Remove(0, 1)
e.Form.Controls("ComboBox7").ComboList = st.Remove(0, 1)
e.Form.Controls("ComboBox8").ComboList = st.Remove(0, 1)
希望，当这个表的“已导入”为true时变改其背景色，
每次设置DataSource 都是新表，没有必要浪费时间再删除一下列
Dim tb As Table = Tables("导入凭证库财政记录_table1")
tb.StopRedraw()
Dim Book As New XLS.Book(e.Form.Controls("TextBox2").text)
Dim Sheet As XLS.Sheet = Book.Sheets(e.Sender.text)
Dim dtb As New DataTableBuilder("temp")
dtb.AddDef("已导入", GetType(Boolean))
For m1 As Integer = 1 To Sheet.cols.Count
dtb.AddDef("第" & m1 & "列", GetType(String), 255)
Next
tb.DataSource = dtb.BuildDataSource ()
……其他代码
然后说道全局表事件DrawCell事件写代码
If e.Row("已导入")=true Then
e.Style = "a"
End If