Foxtable(狐表)用户栏目专家坐堂 → 怎么无法发帖了?


  共有6183人关注过本帖树形打印复制链接

主题:怎么无法发帖了?

美女呀,离线,留言给我吧!
采菊东篱下
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/19 18:02:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200819180047.png
图片点击可在新窗口打开查看

报错
[此贴子已经被作者于2020/8/19 18:03:02编辑过]

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/20 8:14:00 [只看该作者]

分区版面中生成的临时分页表是SQLTable,把上面的代码改一下,不存在DataTables

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200820081322.png
图片点击可在新窗口打开查看

我把清除临时表代码tbl.Table.DataTable.DataRows.Clear
改为Tables("主窗口_Table" & "'" & Str & "'").Rows.Clear
依然报错。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/20 9:19:00 [只看该作者]

forms("主窗口").controls("Table" & "'" & Str & "'").Table.DataTable.DataRows.Clear

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/20 10:11:00 [只看该作者]

因为是临时表生成的SQLTable,增加一行我没用Dim nr As Row = Tables("主窗口_" & "Table" & "'" & Str & "'").AddNew()
改为:
Dim nr As DataRow = forms("主窗口").controls("Table" & "'" & Str & "'").Table.DataTable.AddNew()
或:
Dim nr As DataRow = forms("主窗口").controls("Table" & "'" & Str & "'").Table.AddNew()
都报错!
[此贴子已经被作者于2020/8/20 10:11:27编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/20 10:15:00 [只看该作者]

上传实例

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/20 10:30:00 [只看该作者]

密码:888888
代码在菜单配置栏的排座按钮事件里。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:象棋排赛正常.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/20 10:55:00 [只看该作者]

把表格变量放到外层,就可以直接使用tbl.xxxx了,另外控件名称没有必要加单引号,又不是查询条件
……
Dim di3 As Date = bsrq.Value
Dim bslx As WinForm.TextBox = Forms("主窗口").Controls("bslx")
Dim lx As String = bslx.Value
Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")
Dim Str As String = fz.Value
Dim tbl As WinForm.Table
If lx = "个人赛" Then
    Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
    If tab.TabPages.Contains(Str) = False Then
        tab.TabPages.Add(Str,Str)
        tbl = Forms("主窗口").CreateSQLTable("Table" & "'" & Str & "'","Select * From {综合组}","")
        tbl.SetBounds(0, 0, 747, 470)
        Forms("主窗口").Controls("TabControl1").Tabpages(Str).AddControl(tbl)
Else
tbl = Forms("主窗口").Controls("Table" & "'" & Str & "'")
    End If
……

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/20 15:08:00 [只看该作者]

1、选团体或个人分组和日期后页面集合中的临时页面生成了,但没生成临时表。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:象棋排赛20200820.foxdb

2、主窗口中的基本信息分页目录树那些上页下页按钮全没了反应。

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/20 15:32:00 [只看该作者]

第2个问题解决了。

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/20 20:33:00 [只看该作者]

如何用代码获取当前分页的页面编号?

 回到顶部
总数 77 上一页 1 2 3 4 5 6 7 8 下一页