以下是引用狐狸爸爸在2009-4-15 22:30:00的发言:
呵呵,如果这样,就更简单了,你用一个配置表,包括三列,分别是:表、列、标题,用于输入各列的标题:
然后在项目的Initialize事件设置代码:
For each dt As DataTable In DataTables
For Each dc As DataCol In dt.DataCols
Dim dr As DataRow
dr = DataTables("配置").Find("[表] = '" & dt.Name & "' And [列] = '" & dc.Name & "'")
if dr IsNot Nothing Then
dc.Caption = dr("标题")
End If
Next
Next
这样更高效:需要时才更新!
配置表:表、列、标题,更新,4列
1,标题列事件(DataColChanged):
If e.DataCol.Name = "标题"
Then
e.DataRow("更新") = True
End
If
然后在项目的Initialize事件设置代码:
Dim Dt As DataTable = DataTables("配置")
Dim drs As List(Of DataRow) = Dt.Select("更新 = True")
if drs.Count > 0 then
For each dr As DataRow In drs
if DataTables(dr("表")).DataCols.Contains(dr("列")) then
DataTables(dr("表")).DataCols(dr("列")).Caption = dr("标题")
dr("更新") = False
End if
Next
End if