Foxtable(狐表)用户栏目专家坐堂 → 请教单选框


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

主题:请教单选框

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/13 16:57:00 [显示全部帖子]

就不应该用单选框,用复选框。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/13 17:04:00 [显示全部帖子]

Click事件

 


static pflag as boolean = false
pflag = not pflag
e.sender.Checked = pflag


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/13 17:18:00 [显示全部帖子]

看3楼。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/13 19:22:00 [显示全部帖子]

肯定可以,打开设计器之前,把此窗口打开,这样方法调用列名表名。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/13 20:01:00 [显示全部帖子]

绑定临时表,用 DataSource 属性直接绑定为副本表。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/13 20:08:00 [显示全部帖子]

设置好模板啊,设置好表名和列名啊。

 

比如表名设置成 <窗口1_Table1>


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/13 20:28:00 [显示全部帖子]

一样可以看到。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/13 20:53:00 [显示全部帖子]

任何表,只要在设计模板窗口前存在,就可以看得到

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/14 10:09:00 [显示全部帖子]

把表打开,显示出来,然后再打开报表设计器啊

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/14 11:18:00 [显示全部帖子]

1、只有表,都显示啊;

 

2、自己加上。计划管理

 

Dim frm = windows.forms.form.activeform
If frm IsNot Nothing Then
    If frm.name = "Class239" Then
        Dim lstCols = frm.controls("lstCols")
        Dim cmbTables = frm.controls("cmbTables")
        lstCols.items.Clear
        For Each c As Col In Tables(cmbTables.Text).Cols
            lstCols.Items.add(c.name & iif(c.caption <> c.name,  " " & c.Caption, ""))
        Next
    End If
End If


 回到顶部
总数 11 1 2 下一页