你都说了.不同的table有不同的field
不能预料得到的.
2楼说的那样就是最好的选择.

问题基本解决。由于每一个table的后两个field的一样。添加如下语句达到要求。

    If rstSql.Fields(rstSql.Fields.Count - 1).Name = "EditDateTime" Then
        intCount = rstSql.Fields.Count
        DgdExplorer.Columns(intCount - 1).Visible = False
        DgdExplorer.Columns(intCount - 2).Visible = False
    End If

或者将将的宽度高为0