主题：[求助]SQL查询表继续求助

 呃，没看懂你的问题。是问a、b是什么意思？

 

 a、b 是一个别名 代表 前面的表名，用a、b写着方便一些而已。

 把多行显示成多列？

 

 把你的项目，做个例子上传上来。

 数据，看你的数据是怎样的。把数据做成例子发上来。

 

转成内部表。

 导出，导入

 

http://www.foxtable.com/help/topics/0182.htm

 

http://www.foxtable.com/help/topics/0184.htm

 

呃，没有数据啊.......

回复15楼，不是应该两个表的么？

 回复18楼，试了一下，无法用sql直接求得表。要用代码处理一下

 

Dim dtb As New DataTableBuilder("临时表")
dtb.AddDef("卡号", Gettype(String), 32)
dtb.AddDef("姓名", Gettype(String), 32)
dtb.AddDef("门卫", Gettype(String), 32)
dtb.AddDef("时间1", Gettype(Date), "", "时间")
dtb.AddDef("食堂", Gettype(String), 32)
dtb.AddDef("时间2", Gettype(Date), "", "时间")
dtb.Build()

DataTables("临时表").StopRedraw
For Each ary As String() In DataTables("对应表").GetValues("rfkh|ryxm")
    Dim drs1 As List(Of DataRow) = DataTables("对应表").Select("rfkh = '" & ary(0) & "' and ryxm = '" & ary(1) & "' and xfjh = '001'")
    Dim drs2 As List(Of DataRow) = DataTables("对应表").Select("rfkh = '" & ary(0) & "' and ryxm = '" & ary(1) & "' and xfjh = '002'")
    Dim count As Integer = iif(drs1.count > drs2.count, drs1.count, drs2.count)
    For i As Integer = 0 To count - 1
        Dim ndr As DataRow = DataTables("临时表").AddNew
        ndr("卡号") = ary(0)
        ndr("姓名") = ary(1)
        If i < drs1.count - 1 Then
            ndr("门卫") = drs1(i)("xfjh")
            ndr("时间1") = drs1(i)("xfsj")
        End If
        If i < drs2.count - 1 Then
            ndr("食堂") = drs2(i)("xfjh")
            ndr("时间2") = drs2(i)("xfsj")
        End If
    Next
Next
DataTables("临时表").ResumeRedraw
MainTable= Tables("临时表")

不能直接用sql语句，你要的表，是不规则的。看19楼。

 

http://www.foxtable.com/help/topics/0213.htm

 

 

1、你新增一个表格，设置好列，日期格式扩展成日期时间格式；

 

http://www.foxtable.com/help/topics/0044.htm

 

 

2、你在AfterOpenProject事件写入代码

 

DataTables("临时表").DataRows.Clear 

DataTables("临时表").StopRedraw
For Each ary As String() In DataTables("对应表").GetValues("rfkh|ryxm")
    Dim drs1 As List(Of DataRow) = DataTables("对应表").Select("rfkh = '" & ary(0) & "' and ryxm = '" & ary(1) & "' and xfjh = '001'")
    Dim drs2 As List(Of DataRow) = DataTables("对应表").Select("rfkh = '" & ary(0) & "' and ryxm = '" & ary(1) & "' and xfjh = '002'")
    Dim count As Integer = iif(drs1.count > drs2.count, drs1.count, drs2.count)
    For i As Integer = 0 To count - 1
        Dim ndr As DataRow = DataTables("临时表").AddNew
        ndr("卡号") = ary(0)
        ndr("姓名") = ary(1)
        If i < drs1.count - 1 Then
            ndr("门卫") = drs1(i)("xfjh")
            ndr("时间1") = drs1(i)("xfsj")
        End If
        If i < drs2.count - 1 Then
            ndr("食堂") = drs2(i)("xfjh")
            ndr("时间2") = drs2(i)("xfsj")
        End If
    Next
Next
DataTables("临时表").ResumeRedraw

 

3、请把帮助文档认真看完一次。