主题：[求助]查询表中的表名问题

方法一：重新指定别名；

方法二：修改列标题 http://www.foxtable.com/webhelp/scr/1275.htm

Dim  str As String="Select  {表A}.第一列,{表A}.第二列,{表B}.第一列 From {表A} Inner JOIN {表B} ON {表B}.[第一列] = {表A}.[第一列]"
cmd99.CommandText=str
Dim dt As DataTable=cmd99.ExecuteReader()

Dim tb As WinForm.Table = e.Form.Controls("Table1")
tb.Table.DataSource =dt
Dim tbx As WinForm.TextBox = e.Form.Controls("TextBox1")
tbx.text=cmd99.CommandText

For Each c As DataCol In tb.Table.DataTable.DataCols
c.Caption = c.Caption.replace("~TMPCLP", "")
tb.Table.DataTable.BuildHeader()
Next
tb.Table.Filter="[~TMPCLP表A.第一列]='A类'"

老师，

  测试发现如下规律，不知是否正确；

对于重名列（{表A}.第一列,{表B}.第一列）只是影响在显示上~TMPCLP，不影响在 如下代码中使用（{表A}.第一列，不用写为{~TMPCLP表A}.第一列）；

例如

Dim  str As String="Select  {表A}.第一列,{表A}.第二列,{表B}.第一列 From {表A} Inner JOIN {表B} ON {表B}.[第一列] = {表A}.[第一列]"
cmd99.CommandText=str & “where {表A}.第一列='A类'”
Dim dt As DataTable=cmd99.ExecuteReader()