Foxtable(狐表)用户栏目专家坐堂 → [求助]临时表用SQLfind


  共有2007人关注过本帖平板打印复制链接

主题:[求助]临时表用SQLfind

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
[求助]临时表用SQLfind  发帖心情 Post By:2020/12/19 16:54:00 [只看该作者]

老师,
  临时表不能使用Sqlfind?

例如 
Dim tb2 As WinForm.Table = e.Form.Controls("Table2")
Dim tb3 As WinForm.Table = e.Form.Controls("Table3")
tb2.Table.DataTable.LoadFilter="timebegin='" & Format(Date.now(), "yyyy-MM-dd") &"'"
tb2.Table.DataTable.Load()
If tb2.Table.Rows.Count>0 Then
    Dim dt As DataTable=tb2.Table.DataTable
    Dim dt1 As DataTable=tb3.Table.DataTable
    Dim dr As DataRow= dt1.find("timebegin='" & Format(Date.now(), "yyyy-MM-dd") &"'")
    Dim drs As List (of DataRow)=dt.sqlSelect("timebegin='" & Format(Date.now(), "yyyy-MM-dd") &"'")
    If dr Is Nothing Then
        Dim dr1 As DataRow = dt1.AddNew()
        dr1("timebegin") = Date.now()
        For Each dr2 As DataRow In drs
            dr1(dr2("Valueid")) = dr2("idvalue")
        Next
    Else
        For Each dr3 As DataRow In drs
            dr(dr3("Valueid")) = dr3("idvalue")
        Next
    End If
End If

不想加载数据进来,怎么写?


 回到顶部