以下是引用狐狸爸爸在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
收藏,呵呵