tstr="Select [_Identify],[zt],[工资表名],[设置],[" & dc.name & "] As " & dr(dc.name) 
tstr = tstr & " From {工资表}" \'ckgl是数据源名称,[编号]是主键,必须包含
DataTables("工资_table1").Fill(tstr,False) 
Dim tx1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Tables("工资_table1").Filter = "[工资表名] = \'" & Value(0) & "\' And [zt] = \'" & vars("账套") & "\'"
\'\'\'\'\'\'以下显示当前列
Dim x2 As String
For Each c1 As Col In Tables("工资_table1").Cols
    If x2=""
        x2= c1.name &  "|" & c1.width
    Else
        x2=x2 & "|" & c1.name &  "|" & c1.width
    End If
Next
tx1.Value = x2
显示各列的宽度为-1，要手动调整一列的宽度，它才出来一列的宽度